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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



80-Series Multiple Linear Regression System 



James N. Boles 
Associate Professor 
Department of Agricultural Economics 
University of California 
Berkeley h, California 



1620 Users Group Membership Code: 5076 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 
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EQUAL 26452080549^84315125" 21 

EQUAL 60750037954386257177 22 

EQUAL 85515762847535637392 23 
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1. TITLE (If subroutine, state in Title): 8o-Series Multiple Linear Regression System 



2. Author; Organization: James w. Bo ^es . Associate Professor. Department of Agricultural 

Economics, University of California. Berkeley. ■ 

Date: January 2, 1964 Users Group Membership Code: 5076 

3. Direct Inquiries to Name: James H. Boles, Department of Agricultural Economics, University 
of California, Berkeley . Phone : THornwall 5-6000 33^9 

4. Description/Purpose: (5. Method; 6. Restriction/ Range; When Applicable) 

This system solves the general multiple linear regression problem. By means of a 

variety of transformations T it may also be used to fit curved surfaces to data points 

providing only that the function representing the surface be linear in its parameters. 
Three alternative forms of regression are; (a) stepwise, (b) multiple dependent vari- 
able, and (c) alternate dependent variable. The system is quite flexible as to input 

and output. Options are selected mainly bv control card. Complete residual n y error 

analysis is provided. , . . 



7. Specifications (Check or fill in appropriate spaces): 

a. Storage used by program: 13 f ltQQ 

b. Equipment required by program: 

Card System X ; Magnetic Tape System ; No. of Tapes 



Paper Tape System J Disk File System ; No. of Packs 



TNS, TNF, MF ; Auto divide x ? Indirect addressing ;Floating point hardware 

Other (specify) 

Can program be used on lesser Machine? Yes • Specify which requirements can be 

easily removed Recompile with subroutine deck without automatic divide feature. 

c. Programming type (Check appropriate spaces): 

Fortran without Format ; Fortran with Format ; 



Fortran II ; Mainline, Complete ; Subroutine or function subprogram(S or F) 

Is the program a library (ie, SPS) function to the Fortran system checked? 

SPS ; SPS - 1620/1710 x_; 



Mainline, Complete X ; Macro ; Subroutine 

Other programming language: ; Give details 



d. Language used in the writeup: English 

8. Additional Remarks: Allocation of memory is made by the program for each problem. The 
programs are independent of memory size. For 20, 40, and 60 K memories, approximately 
30, 65. and 85 variables may be used. , 



6-63 



vi 



Notes to Users 

1. The input subroutine used by 80-1 and 80-2 is located from OO892 to 
01974. It is initialized when 80-I is in core. Several cards of the object 
80*-2 have been deleted so that the initialization is not disturbed as 80-2 loads. 
The gap appears between cards loading into 00840 and 01716 (see page 4l0). 

2. The object decks have been condensed by a routine similar to squeez. 
The first six and the last four cards serve as program loader and contain the 
add and multiply tables. The remaining cards have a standard format. The first 
five columns contain a flagged address to which the digits starting in column 8 
will be transmitted. Columns 6 and 7 contain a flagged number indicating how 
many digits are to be transmitted. Programs 80-1, B, C, D, and E are preceded 
by a two card memory clear routine. All object decks are preceded by a hash 
total card that does not interfere with loading. 

3. Programs 1 through k are designed to operate sequentially with no halt. 
Each of these programs end with a simulated "load," read numeric card into zero, 
and branch to zero. 

h. Program 80-D proceeds by setting up an alphameric card image and then 
either types or punches the card image. In order to transmit the record mark 
as well as other data, the flag has been removed from the flagged zero at 0814-24 
following OUTPUT. 



I. DESCRIPTION OF PROGRAMS AND FUNCTIONS 

The 80-Series Multiple Linear Regression System is the current result 

of a long series of revisions starting basically with Stepwise Multiple 

Linear Regression Analysis for the IBM 1620 (card), 6.0.007 (now withdrawn), 

written by Don Wyman. The basic mathematical method is given in: 

M. A. Efroymsen, "Multiple Regression Analysis," Mathematical 
Methods for Digital Computers , ed. A. Ralston and H. Wilf 
(New York: John Wiley and Sons, i960), Chap. 17, pp. 191-203. 

Perhaps a general description of certain features of the system is in 

order. 

1. Input . A flexible input routine is provided. Under format control, 
cards are read with field widths ranging from 1 to Ik digits. The 
cards are read alphamerieally so that explicit decimals may or may 
not be used. Contrary to Fortran, the format description overrides 
the explicit decimal. Negative numbers are indicated by an explicit 
minus sign appearing somewhere in the field. Format control also 
allows card columns to be skipped. The maximum number of card col- 
umns to be read per card can also be specified. 

2. Transformations . A rather complete set of transformations is pro- 
vided, including all the floating point arithmetic subroutines pro- 
vided in the SPS II library. 

.3. Memory Allocation . A single reference address is defined, and memory 
allocation is then computed for each problem. This allows great 
flexibility in optimizing the use of memory. In other words, if the 
problem is of rather simple structure, involving few formats, trans- 
formations, etc., a greater portion of the memory is made available 
for data storage. This feature also makes the system usuable without 
modification for memory sizes from 20 to 60 K. 
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Extensive use is made of programmed subroutines, thus making it pos- 
sible and easy to rearrange and recompile for different purposes. 
Contrary to most input routines for regression analysis, either one- 
pass input or two-pass input is available on option. In orie-pass 
input, the data are read only once, forming the sums and sums of 
products. From these, the "large" variance-covariance matrix, 
"large" standard deviations, means, standard deviations, and simple 
correlation coefficients are computed: M = number of observations. 

a. "Large" covariance. 

L ij = I X im X jm " I -tfrijj&fr) 

b. "Large" standard deviation. 

l. = y~r. 

1 » 11 

c. Arithmetic mean. ' 

1 M m 1m 

d. Standard deviation. 

S. = ir 

1 V£ 1 



e. r 



L. . 

= \ J 

ij or 



Using one-pass input, however, with 8-significant-digit floating 
point arithmetic, may cause the loss of significant digits. 

Two-pass input, on the other hand, reads the data once to form 
sums and means and then reads the data the second time to form the 
"large" variance-covariance matrix, automatically subtracting means 
before forming the sums of products. 

L ij "m <*im-^)(X;j n -X-). 




3. 

Two-pass input takes more time but does result in a more accurate cor- 
relation matrix and does make available for punching and later use the 
"large" variance -covariance matrix. An experiment was run using zero- 
fill and nine-fill to determine the relative accuracy of the one- 
versus two-pass procedure. On the average, correlation coefficients 
using the two-pass method had about 1.5 more significant digits. 

6. Matrix Inversion . A matrix inversion routine has been adapted from 
Strap, 6.0.00U (now withdrawn), that requires only an upper triangu- 
lar matrix. The correlation matrix is used in order to start with 
numbers ranging in magnitude between -1 and +1 and thus to improve 
the accuracy of inversion. 

7. Regression Form. Three alternative forms of linear multiple regres- 
sion are provided: 

a. Stepwise. In this form there is a single dependent variable. 
A stepwise method of matrix inversion is used so that at each 
iteration the program selects the particular independent vari- 
able to add that will cause the greatest reduction in the un- 
explained variance of the dependent variable. Values of FIN 
and FOOT may be entered so that the program "will select vari- 
ables for inclusion providing the associated F level is greater 
than FIN and select variables to delete providing the associated 
F level is less than FOOT. 

The purpose of the stepwise procedure is to automatically 
select a subset of the independent variables such that their 
associated coefficients will be statistically significant at 
some preselected level of significance. In this particular 



k. 

application, and considering one variable at a time, the T random 

variable is equivalent to Thus, the selection of FOOT = k.O 

is equivalent to the selection of a critical value of T = 2.0. 

The actual level of significance associated with a critical value 

of F or T depends also on the degrees of freedom (DF) which, in 

turn, is equal to the number of observations minus the number of 

parameters estimated (including the constant term) . 

A test is made at each iteration so that no independent 

variable is selected for inclusion if its diagonal element in 

the correlation matrix is smaller than 0.001. This value implies 

a very high degree of multiple correlation between the variable 

in question and the already included independent variables, that 
2 

is, an R greater than 0.999- 

Multiple Dependent Variable Regression. Here the problem is to 
compute the regression statistics for a subset of the variables 
regressed against the remaining subset of variables. Thus, for 
example, when regressing the second, fifth, and eighth variables 
against the first, third, fourth, sixth, and seventh, three 
separate regression equations and their associated statistics 
are computed. 

The technique used here to select the independent variable 
to add is to aggregate the variance reduction for each of the 
dependent variables and select the independent variable that 
causes the greatest reduction in the aggregate. 
Alternate Dependent Variable Regression. Here all variables are 
treated symmetrically. The entire matrix of correlation coeffi- 
cients is inverted and regression statistics computed for each 



specified dependent variable regressed against the remaining set of 
N-l variables. In order for this method to work, all variables used 
must be linearly independent. 
8. Most of the options are indicated on a parameter card. Sense switches 
are used only to select printing of input and/or transformed data and 
to halt computation. Printing of input data is done only for one or 
two observations to see if the data are entering properly after which 
. the switches are. turned off. 
9- Contrary to most regression programs, the location of dependent variables 
is arbitrary. A record of one-digit fields is used in which a zero in- 
dicates an excluded independent variable, a one indicates an included in- 
dependent variable, and a record mark, ^ , indicates a dependent variable. 

10. In stepwise and multiple dependent variable regression, if one or more 
independent variables is excluded, an option is provided whereby this ex- 
cluded variable may be regressed against the included set of independent 
variables. 

11. If, by chance or error, one of the variables is constant and thus has a 
zero "large" variance, the zero value is replaced by one so that no attempt 
will be made to divide by zero while computing the correlation matrix. 
Computation continues, but this variable will not enter into the regression. 

12. If perfect multiple correlation is obtained, the standard error of the de- 
pendent variable is zero. When this happens, the standard error of the 
coefficient is zero and. the T ratio is not computed. 

13. If the number of parameters estimated (including the constant term) is 
equal to the number of observations, the degrees of freedom (DP) are 
equal to zero, and the standard error of estimate is zero. A test is 
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made to see if DF = 0.0. If it is, the normal computation of S y x 
is not performed since it involves division by DF. This situation 
can arise only if the number of observations equals or is less than 
the number of variables (including the dependent variable) . 
lh. Convenient output is provided, complete with alphabetical headings 
and explicit decimals. This output is either provided for on the 
typewriter or is punched for 80 x 80 listing. On option, almost 
all typewriter output can be suppressed. 

15. Complete residual analysis is available. 

16. Provision is made for reloading (a) sums and sums of products or 
(b) means, standard deviations, and the correlation matrix. At 
load time, variables can be deleted and/or sets of data from sub- 
groups can be aggregated. There are two alternative methods for 
aggregating subgroups: one which corresponds to fitting a regres- 
sion function to a set of subgroups such that all regression coeffi- 
cients are forced to be the same for each subgroup and the second 
such that the constant terms are allowed to vary from one subgroup 
to another. 

For simplicity, assume that there are two subgroups: one con- 
sisting of ho observations and the second of 60 observations. For 
the first method, both subgroups are analyzed separately, using one - 
pass input. Then the "sums" decks are aggregated by Program 80-A, 
and the regression results obtained are precisely those that would 
have been obtained by analyzing the whole set of 100 observations 
as one problem. This is so because the aggregation forms sums such 
as: 

hO 100 100 

S X. + 2 X. = 2 X . 
t=l * t=hl * t=l z 
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and 

kO 100 100 

2 X Y. + 2 X. I. = 2 jr. Y.' . 

t=l U - t=4l * * t=l U 

The second method analyses the two subgroups using two-pass input. 
Here the sums of squares and products are in terms of deviations from 
the group means, X- L , Y^, Xg, and Yg. 

In this case 

^° _ _ 100 _ , 100 

l&t - h)<*t - Y i> + u*t - - v i i =1 (\ - m\ - 

where X and Y are means of the entire set of 100 observations. In this 
case, all results, except the constant term, are appropriate for the re- 
gression model that allows for separate values of the constant terms in 
each subset but forces all other coefficients to be the same. The sepa- 
rate constant terms must be calculated by hand. In the simple case de- 
scribed above, A Q1 = Y ± - m ± , and A Q2 = Y g - BXg. 
17. On option, any of the regression forms can be forced through the origin. 
A specific description of the programs and their functions follows. 

80-1 . Program 80-1 reads the header cards and initializes for either 80-2 or 
80-A. It reads and flags the parameter cards and computes data addresses 
for the specific problem at hand. 

80-2 . Program 80-2 reads, floats, and stores the basic data; transforms the 
data; performs either one-pass or two-pass input; and forms sums and 
sums of products. On option, sums and sums of products are punched. 



80-3 . Program 80-3 forms means, standard deviations, and the upper triangular 
correlation matrix. On option, these statistics are punched. 
80-UA. Program 80-4A performs stepwise multiple linear regression. On option, 
it punches the regression statistics for each iteration, punches the 
transformed correlation matrix, and reinverts and punches the rein- 
verted matrix. 

80-ij-B. Program 80-^B performs multiple dependent variable regression. It has 

similar options to 80-l*A. 
80-hC . Program 80-^C performs alternate dependent variable regression. It 

has similar options to 80-^A. 
80-A . Program 80-A is used to load, delete and/or cumulate sums and sums of 

products or means, standard deviations, and correlation coefficients. 

It is followed by 80-3 and k if sums are loaded or by 80-^ if means 

are loaded. 

80-B . Program 80-B is used to read, translate, and print on the typewriter 
in explicit decimal form any or all of the punched output from 80-2, 
3, or k. 

oO-C . Program 80-C is used to read, translate, and punch in explicit decimal 
form any or «n. of the punched output from 80-2, 3> or h. 

80-D . Program 80-D is used to compute and print and/or punch residuals. If 
the dependent variable is in logarithmic form, this program, in option, 
computes the antilogs of the actual value, predicted value, and re- 
sidual. 

80-B . Program 80-E is used to check punching accuracy. It reads, floats, 
and stores the basic data; and it cumulates and prints the sums of 
the basic data and the sums of the transformed data. 



II. DATA PREPARATION, 80-1 THROUGH k 
(Note: Sequence of header cards Is given by flow chart on page 18.) 

A. Alphameric Cards 

One or more alphameric cards must be used. Alphameric cards are read and 
immediately listed on the typewriter and are normally used to describe 
the particular problem being solved. If no such typing is desired, a 
blank card may be used. 

The program recognizes that another alphameric card follows by the 
presence of a record mark (0-2-8 multiple punch) in column 80. Conse- 
quently, the last alphameric card in a sequence must not have a record 
mark in column 80. All alphameric cards, except the last, must have a 
record mark in column 80. 

For a particular card, listing on the typewriter continues until a 
record mark is encountered. Consequently, it is desirable to place a 
record mark immediately following the last alphameric character to be 
typed. Some cards may then have two record marks, one following the al- 
phameric information and one in column 80. 

There is no limit on the number of alphameric cards used. 

B. One Parameter Card — No Flags Necessary 

Columns Description Example 

1- 6 Date. OI3163 

7- 8 Problem number. 02 

9-13 NOBS, number of observations. 00031 

II4-I6 NFORM, number of data formats. 035 

17-19 INVAR, number of variables read. 0^6 

20-22 NOVAR, number of locations needed to accom- 

modate all variables during transformation. 
NOVAR > N. O65 

NOVAR > INVAR. 
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Columns Description Example 

23-25 N, number of variables used in regression. 

If the load and delete option is selected, 

N must be the number of variables before 

deletion. 060 

26-28 NDEP, number of dependent variables. Used 

only with ADV option. oi^ 

29-31 NOTRAN, number of transformations. 015 

32-3^ NOCON, number of transformation constants. 012 

35-36 NCOL, number of card columns read. If left 

blank, up to 76 columns will be read. 65 

37-39 NELIM, number of variables eliminated. Used 

only with CON 16. 

Columns ho through 57 are used to enter one-digit constants that 
designate options. All but column 55 are either (blank) or 1. 
Column 

to CON 1. A one indicates a choice of stepwise regression. 

^1 CON 2. A one indicates a choice of multiple dependent 

variable regression. 

h2 CON 3- A one indicates a choice of alternate dependent 

variable regression. 

Note: Only one of the first three options should be used. 



^3 CON h. A one indicates that FIN and FOUT are to be entered. 

These values are used only in stepwise regression. If they 
are not entered, FIN and FOUT are automatically set equal 
to zero. A zero or blank indicates no F values are read. 

hh CON 5- A one indicates that two-pass input is selected. 

With two -pass input, the data are read first and, after 
transformation, the variables are summed and means computed. 
During the second pass of the data deck, the means are sub- 
tracted from the transformed variables, and sums of squares 
and cross products are formed of the residuals. If sums 
are punched, the sums-of -products matrix consists of large 
variances and covariances, 



L. . = Z(X. - X.)(X. - X.). 



v, j 



6 



n. 



A zero or blank indicates one -pass input. The sums -of - 
products matrix is then 



M. . « IX. X. 

lj m im jm 



Column 



14-5 CON 6. A one indicates that weighted regression is used; 

a zero or blank that no weighting is required. If weights 
are used, the weight must be entered as an additional vari- 
able and, after transformation, it must occupy the (N+l)st 
position . 

k6 CON 7. A one indicates that the regression surface is 

forced to pass through the origin; a zero or blank indi- 
cates that forcing is not desired. This option is used 
only with one -pass input. 

hf CON 8. A one indicates that typing of regression statis- 

tics is noTTwanted. A zero or blank will cause the regres- 
sion statistics to be typed. In any case, at least the 
final regression statistics are punched and may be listed 
with Program 80-B or C. 

k8 CON 9. A one indicates that sums and sums of products 

are punchecTTn internal floating point format . A zero 
or blank indicates that "sums" are not punched. 

k9 CON 10. A one indicates that means, standard deviations, 

and correlation matrix are punched in internal floating 
point format. A zero or blank indicates that "means" are 
not punched. 

50 CON 11. A one indicates that "steps" are punched; a zero 
or blank thaT"" steps" are not punched. This option is 
used only with the stepwise regression option. 

51 CON 12. A one indicates that the transformed correlation 
matrix is punched in internal floating point format; a 
zero or blank indicates no punching. 

52 CON 13. A one indicates that the transformed correlation 
matrix is reinverted and punched in internal floating 
point format; a zero or blank indicates _no reinversion 
and punching. 



Note: CON lh and CON 1$ are not used in the 80 Series. 
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Column 

55 CON 16. A digit, M, indicates that the "load" option 
is selected and M sets of previously punched "sums" or 
"means" are to be cumulated. Normally, M is greater 
than one only when CON 17 is blank or zero ; that is, 
the cumulation option is used only to aggregate sums 
and sums of products for subsets of data. With this 
option, it is possible to eliminate designated vari- 
ables. A zero or blank indicates the load option is 
not used. CON l6 indicates the selection of the load 
option. Only if CON 16 is a digit will CON 17 be 
tested. 

56 CON 17. A one indicates that previously punched means, 
standard deviations, and correlation matrix are to be 
loaded; a zero or blank indicates that previously 
punched sums and sums of products are to be loaded. 

Note: This constant is tested only if CON 16 is a digit. 

57 CON 18. A one indicates that if any t independent variable 
is not used due to multicollinearity7 / it is regressed 
against the included set of independent variables; a zero 
or blank indicates that this option is not selected. 

C. IND Card 

This card is used only for stepwise or multiple dependent variable re- 
gression to denote the dependent variable (for stepwise regression) or 
dependent variable(s) for multiple dependent variable regression. Punch 
a record mark (0-2-8 multiple punch) in the column or columns correspond- 
ing to the dependent variable or variables. If the load and delete option 
is used, the variables are renumbered sequentially after deletion and the 
record mark or marks should be located relative to the new indexes. 

D. IDD Card(s) 

This card is used only with alternate dependent variable regression. Start- 
ing with columns 1 and 2, punch in two-digit indices of all dependent vari- 
ables to be used. Use columns 1 through 80. If more than kO dependent 
variables are used, punch a second card with the same format. The variables 
do not have to be in ascending or descending sequence. 
\y cr for oth^r fe&Son .s t 
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E. Transformation Index Card(s) 

As many, transformation cards as needed, each card containing 10 eight -digit 
transformation indices. 

Perhaps a brief explanation of the transformation scheme is in order 
before a detailed description of each transformation is given. The data 
are read, floated, and stored in the first INVAR locations of DATA1. There 
are NOVAR locations provided in DATA1. X(l) through X(NOVAR), then, refer 
to these NOVAR locations. The original INVAR variables are transmitted to 
DATA2 which consists of exactly INVAR locations. All of the transforma 
tions except the second refer to the numbers stored in the NOVAR locations 
of DATA1. These numbers may be the numbers originally read in or numbers 
found as a result of previous transformations. Sequential transformations 
may be applied to the same variable. 

8 -Digit Transformation Index 

Columns 

1-2 Transformation code, TT. 

3-^ Index II, where the result of transformation is stored. 
5-6 Index JJ, of first variable used in the transformation. 
7-8 Index KK, of additional variable or transformation con- 
stant used in the transformation. 
Transformation Index = (TTIIJJKK) . Code = TT. 
01 X- ►Xj. 

The number in the Ith location is replaced by the num- 
ber in the Jth location. The number in the Jth location is 
unchanged. Example: (01060300). The sixth number is re- 
placed by the third number. 



n 

4r 



Ik. 

Xj (original) — •Otj. 

The number in the Ith location of DATA! is replaced 
by the Jth input variable stored in DATA2. 

- X i— X I 

The number in the Ith location is replaced by the 
negative of the number in the Jth location. 

X J + C K— X I 

The number in the Ith location is replaced by the 
sum of the number in the Jth location and the Kth con- 
stant . 

The number in the Ith location is replaced by the 
product of the number in the Jth location and the Kth 
constant. 

X J + X K— X I 

The number in the Ith location is replaced by the 
sum of the numbers in the Jth and Kth locations . 

Xj - x^*x I 

The number in the Ith location is replaced by the 
difference of the numbers in the Jth and Kth locations. 

X J • 

The number in the Ith location is replaced by the 
product of the numbers in the Jth and Kth locations. 
Xj 7 Xjp-Xj 

The number in the Ith location is replaced by the 
ratio of the numbers in the Jth and Kth locations. 



V ) 
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10 1.0 i X j~* X I 

The number in the Ith location is replaced by the 
reciprocal of the number in the Jth location. 

(c K ) 

R x j — ' h 

The number in the Ith location is replaced by the 
number in the Jth location raised to the C(K) power. 

12 Ln Xj (natural log)-*- 

13 Log Xj (base 10)— -Xj 

14 (e) J — Xj. 

15 (lO) Xj — ^ 

16 SIN Xj-^Xj. 

17 Cos Xt-*X t 

— — OA- 

18 ARCTAN X— ►Xj. 

19 VXj— Xj 

20 This is a dummy transformation inserted so that the user 
can write any specific transformation, and use this code 
to get to it. 

p. Format Card for Transformation Constants 

Transformation constants are read under the same type of format control as 
are the data cards . If transformation constants are used, a single format 
card must be prepared that specifies the number of fields, the field width, 
and the location of decimal points. See "J" for more detail. 
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G. Transformation Constant Card(s) 

As many cards as needed to punch all transformation constants according 
to format specifications. Negative constants require an explicit minus 
sign somewhere in the specified field. No flags are used. 

H. Format Card for FIN and FOOT 

FIN and FOOT are read under format control in the same way as data cards. 
If this option is chosen, a single format card must be used. See "J" for 
more detail, 

I. Card for FIN and FOOT 

A single card is punched according to the format specification. FIN 
should be greater than FOOT in order to prevent cycling. At the con- 
clusion of the stepwise process, all included independent variables 
will have an F value greater than FOOT and all excluded independent 
variables will have an F value less than FIN. 
J. Format Card(s) for Data 

As many cards as needed, each card containing up to 13 six-digit formats. 
Column 

1-2 Number of sequential variables of the same format. 

3-4 Number of card columns in field, that is, field width 
of variable. 

5-6 Number of decimal places from right of the field. If an 
explicit decimal is present in the field, it is ignored. 

Thus, if the first three variables are entered in five-column fields 

with the implicit decimal two places from the right, the six-digit format 

specification would be (030502). An example of the first three data fields 

for the numbers 2.35, 8.9, and 128 would be OO235/OO890/128OO. (Slashes 

are not punched. ) 



A. six-digit format code is used, to skip columns. In the third e.nd 
fourth columns of the six-digit code, enter the number of card columns to 
skip. Enter zeros in the first, second, fifth, and sixth columns. For 
example, 00^200 will cause the next h-2 columns of the input card to be 
skipped. 

Elimination Card(s) 

As many cards as needed, are used with the load option. Columns 1 and 2 
of 'the .first card are used to denote the number of variables after de- 
letion. Columns 1-80 of the second card are used, to punch in ascending 
order the indices of up to ho. variables to be deleted. If more than kO 
variables are to be deleted, punch the two-digit sequential indices in 
columns 1 through 80 of the third card. If no variables are to be deleted , 
a single card with the number of variables loaded, punched in columns 1 
and 2, is all that is required . 

All of these header cards are not used, for all problems. The se- 
quence needed may be determined by consulting the flow chart on the next 
page . 

Data Cards 

Data fields are required to be from 1 to It columns wide. If NCOL in the 
parameter card is left blank, data fields are punched consecutively from 
column 1 through j6. If NCOL is punched, data fields are punched consecu- 
tively from column 1 through NCOL. A new input card must be used if the 
next data field would otherwise overlap NC0L+1. Columns from NC0L+1 to 80 
may be used for any other purpose. NCOL may be set as high as 80, in 
which case the entire card is used, for data fields. As many data cards 
per observation are used as are necessary for the INVAR variables. 
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lii order to clarify the input format, a number of examples are given 
below. Input cards are read alphamerically. Each two-digit alphameric 
code in the data field is then analyzed. If the two-digit code represents 
a number, the numeric digit is transmitted to a work area. If the two- 
digit code represents a decimal point, no transmission takes place. If 
the two-digit code represents a minus sign, a flag is placed over the low- 
order digit, and a zero is transmitted. Any other two-digit code including 
alphabetic information results in a zero being transmitted. After all two- 
digit codes have been analyzed, the resulting numeric field is translated 
into internal floating point format and stored in "DATA 1." 
1. Decimal points 

a. Punched decimal points 

The decimal point indicated by the format statement for the step- 
wise regression overrides decimal points in the input. The number 
of digits in the field in the format is the number of columns con- 
sidered. A punched decimal point counts as one column in the field 
Example 1 illustrates these points . 

Example 1 

Input Card Columns 1-10 123^5.6789 

Format Meaning Result 

Number of Length __________ 

words with of Decimal 
format field digits 

01 0^ 03 1.23^ T23^0OOOO"l 

01 06 01 5678.9 567890000^ 

In the second field of six digits, the input shows the number to be 
5.6789, but the format says there is only one decimal digit and 
5678.9 results because the format overrides. 
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b. Format decimal 

The number of decimal digits (digits to right of decimal point) in- 
dicated by the format is not limited by the field length because 
the number of decimal digits is only used in calculating the ex- 
ponent of the floating point number. A negative number of decimal 
digits is equivalent to adding that number of zeros to the right 
of the number. Example 2 illustrates these points. 

Example 2 

Input Card Columns 1-20 1231+567890123^567890 





Format 




Meaning 


Result 


Number of 
words with 
format 


Length 

of 
field 


Decimal 
digits 


First 
number in 
field 




01 


Oh 


05 


.0123^ 


T23 1 +OOOOOT 


01 


ok 


05 


5678OOOOO 


5678000009 


01 


°5 


06 


.090123 


90123OOOOT 


01 


05 


OF 


l(-56780000O0 


S56780OOH 


01 


02 


05 


.00090 


90000000C - 



In the first field of four digits, there are five decimal digits 
indicated so that these result in .OI23I+. In the second field of 
four digits, there are negative five decimal digits indicated which 
results in adding five zeros to the field of four digits. 
Minus signs 

Negative numbers must be indicated by an explicit minus sign because 
a number overpunched by a negative sign will be interpreted as a 
letter. A minus sign will result in a zero digit and a negative sign. 



The format field indicates the number of columns in the field. The 
above is illustrated in Example 3. 



Example 3 



Input Columns 1-20 -1234-4567-1234-45-7 





Format 




Meaning 


Result 


Number of 
words with 
format 


Length 

of 
field 


Decimal 
digits 






01 


05 


03 


-1.234 


12340000131 


01 


05 


00 


-4567. 


¥567000004 


01 


03 


01 


-1.2 


r2000000Dl 


01 


03 


02 


-3. 4o 


3400000(501 


01 


Ok 


00 


-4507. 


?50700000Tt- 



In the fourth field, the input card contained 34-. The minus sign 
resulted in a zero digit and a negative field. In the fifth field, 
the input card contained 45-7- The minus sign again resulted in a 
zero digit and a negative field. 
Other alphabetic information 

Any alphabetic information besides a decimal or a minus will be re- 
placed by a zero digit. This is illustrated in Example 4. 

Example 4 

Input Card Columns 1-20 A = lbB = 2bC = 3-D = 1.2345 

Note: b = blank 

Format Meaning Result 

Number of Length 
words with of Decimal 
format field digits 

03 04 01 

01 08 04 



001.0 Toooooood 

002.0 2t)000000Dl 

-003.0 3"OOOO0O(50"l 

001.2345 T2345000U1 



o 
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III. OPERATING DETAILS 

General 

Set left margin at 15. Set tab stops at 21, 34, 47, 60, and 73. All pro- 
grams that are first of a sequence have a 2 -card memory clearing routine. 

Each program in the sequence 1 through 4 is designed to simulate the load 
key upon completion. That is, it reads a card into location zero and branches 
to zero, thus loading the next program. Programs 80-4A, 4b, and 4c may be ter- 
minated after a matrix transformation cycle by turning on sense switch 4. The 
current IND card and "means" deck are punched for restart. 

Programs 80-1 Through 80-4 
A. Set sense switches. 





On 


Off 


Sense switch 1 
Sense switch 2 


Prints basic 
data 

Prints trans- 
formed data 


No print 
No print 



B. Push reset button on console. Computer must be in manual mode. 
If it is not, push instant stop and then reset. 

C. Load program 80-1 into read hopper. Follow with header cards, 80-2, 
data cards, 80-3, and 80-4A, 4B, or 4c. 

D. Push load key on 1622 Card Read. 

E. Push punch start. 

F. Push reader start to complete reading final cards of 80-4. 



J 
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Card Sequence for 80-1 Through 80-k 



6£>-4-A,& oaC 



80-3 



PATA CAEOS 



MEAPER, CABVS 



Program 80-A 



A. Reset. 

B. Load 80-1 in read hopper. Follow with header cards, 80-A, "sums" 
deck or "means" deck, and 80-3 and/or 80-U. 

C. Load. 

D. Punch start. 

E. Reader start to complete reading. 

Loading "sums," M in column 55, blank or zero in column 56 of 
parameter card to cumulate M "sums" decks. 



fao-5 



suiAVpecttis) 



60-A 



fuEAVER CAP-PS 

, / /I 



o 



Loading "means," 1 in column 55, 1 in column 56 of 
parameter card. 



■2k. 



60-4.A,Bo«.C 



WEANS. PECK. 



fao-< 



J HE APE g, CABPS 



66-t 



Program 80-B 

A. Reset. 

B. Load 80-B into read hopper followed by Alpha card(s), control card, 
"sums" deck, "means" deck, transformed correlation matrix deck, re- 
inverted correlation matrix deck, and "steps" deck. 

Control Card for 80-B 





One 


Blank 


Column 2 


Print "sums" 


No print 


Column it- 


Print "means" 


No print 


Column 6 


Print transformed 
correlation matrix 


No print 


Column 8 


Print reinverted 
correlation matrix 


No print 


Column 10 


Print "steps" 


No print 
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The decks that are loaded must correspond to options punched in 
the control card. In other words, if column 6 is blank, the trans- 
formed correlation matrix should not be loaded. 

C. Push load key. 

D. The program continues reading "step" cards until the last card is 
sensed. When the card reader stops, push reader start. 

E. To print another problem, load Alpha card(s), control card, and 
data decks in read hopper, push reader start and start. 

Program 80-C 

This program is identically the same as 80-B, except the data are read, 
translated, and punched in'explicit decimal format. In addition to 
steps A through E, push punch start after C. 

Card Sequence for 80-B or C 



I PAT A PEC ICS 
I CONTROL CARP 



ALPHA CARPCS) 



Program 80-D 

A. Reset. 

B. Load 80-D in read hopper followed by control card, Alpha card(s), 
header cards (except Alpha) used in solving the original problem, 
step cards for a single step, and data cards. 
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C. Push load key. 

D. Push punch start. 

E. Data cards are read until the last card is sensed. When card reader 
stops, push reader start. 

F. If another problem is to be run, load cards (excluding 80-D) and 
push reader start and start. 

Control Card for 80-D 





One 


Blank or zero 


Column 2 


Suppresses printing 


Prints 


Column h 


Suppresses punching 


Punches 


Column 6 


Computes antilogs 


No antilog 


Column 8 


Base 10 


Base e 




Card Sequence for c 


0-D 



PATA CARPS 



STEP CARPS 



|HEAPER CfcB PS 
I ALPHA CAW S) 



CONTROL CARP 



60-P 



If the current problem has been solved using the load and delete option, 
the header cards used to read the original data, make transformations, and form 
the sums and sums-of -products matrix must be modified so that the N variables 
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formed agree in form and sequence with those after deletion. This can be done 
using additional transformations, using the skip option on format, or by modi- 
fying the step output. 

Suppose that 18 two-digit variables were used to form the original sums 
and sums of products with no transformations and that the 2nd, 3rd, and 10th 
variables were deleted from the current problem. Then the parameter card 
should be modified to show INVAR = 15 and the format card changed from 180200 
to: 

0^29/000l^/0to^/000^/080200 
Variables: 1 Skip i*-9 Skip 11-18 . 
Note : Slashes are not punched. 

An alternative approach would be to use the move transformation, 01, to 
move k to 2, 5 to 3, 6 to h, 7 to 5, 8 to 6, 9 to 1, 11 to 8, etc. In this 
case IMVAR = 18, N = 15, and the parameter card would be changed to indicate 
the number of transformations used. 

Still another technique would be to modify the IND card (second card) of 
the step deck. Recall that the IND card signifies an included independent 
variable as a 1 punch, an excluded independent variable as an punch, and a 
dependent variable as a £ (0-2-8 multiple punch). This card could be re- 
punched for the original 18 variables, punching a zero or blank for deleted 
variables. If this technique is used, the first card of the step deck may have 
to be modified by punching in columns 5 and 6, the original index of the vari- 
able used as the dependent variable. Column 5 should be flagged. 
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Program 80-E 

A. Set sense switches. 





On 


Off 


Sense switch 1 
Sense switch 2 


Print input data 
Print transformed data 


No print 
No print 



B. Reset. 

C. Load 80 -E in read hopper followed by header cards just as prepared 
for 80-1. Follow header cards with the data cards. 

D. Push load key. 

E. Push reader start when card reader stops. If another problem is to 
be run, load cards (excluding 80-E) and push reader start and start. 

Error Halts 

SPS II Library Subroutines are used throughout. The presence of special 
conditions causes an error message of the form: 

XXXXX 00 XX 
R S 

to be typed, where R is a return address to the main program, and S is a code 
that identifies the special condition. See the Reference Manual, IBM 1620/1710 
Symbolic Programming System . 

The detection of an overflow or underflow conditions causes the subroutine 
being executed to examine core storage position 00401 to determine the course 
of action. The object decks now have a zero in this location, which causes a 
zero to be placed in the result field if underflow is present and then continues 
processing. If an overflow is present, the machine halts. 



Storage position OOtol is column 80 of the sixth card (not counting the 
two-card clearing routine that begins Programs 8Q-1, B, C, D, and E). 

If a record mark is not found in the first N positions of IND, Program 
80-^A halts. The address of the halt instruction is 01110, and the MAR reg- 
ister will display 01121. 

The ADV option requires that the correlation matrix be fully inverted. 
If it is not inverted due to multicollinearity, the following error message 
is typed by 80-UC: "Matrix Almost Singular," and the machine halts. The 
address of the halt instruction is Ol6?2, and Mar will display OI683. 
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IV. DESCRIPTION OF OUTPUT 

A. Program 80-1 

Program 80-I reads and prints the Alpha card(s). It prints the date, prob- 
lem number, number of variables, and number of observations. 

B. Program 80-2 

If CON 3, column kQ of the parameter card, is a digit, 80-2 punches a "sums" 
deck. If CON 5> column kk, is a blank or zero, the sums deck consists of a 
set of cards on which the sums of the first N original or transformed vari- 
ables have been punched, and a second set on which the sums of squares and 
cross products of the first N original or transformed variables have been 
punched. Each set is preceded by a duplicate of the parameter card except 
that parameters have been flagged. 

If CON 5> column kh, is a digit, two-pass input has been selected, and 
the second set consists of sums and sums of products of the variables after 
their means have been subtracted. 

Only the upper triangular matrix is formed and punched. The sequence 
punched is: 

1. Parameter card. 

2. As many cards as needed, 8 numbers per card, containing the sums of 
the first N variables in SPS II internal floating point format. 

3. Parameter card. 

h. As many cards as needed, 8 numbers per card, containing the 

sums of squares and cross products by rows of the upper triangular 
matrix in SPS II internal floating point format. 



) 
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C. Program 80- 3 

If CON 10, column k-9 of the parameter card, is a digit, 80-3 punches a "means' 
deck consisting of three sets of cards containing means, standard deviations, 
and the upper triangular correlation matrix. Each set is preceded "by a 
flagged parameter card. Columns 71 through 80 of the parameter card con- 
tain the floated number of observations in SPS II internal floating point 
format. The sequence punched is: 

1. Parameter card. 

2. As many cards as needed, 8 numbers per card, containing the arith- 
metic means of the first N variables in SPS II internal floating 
point format. 

i H m lm 
where M = NOBS, number of observations. 

3. Parameter card. 

h. As many cards as needed, 8 numbers per card, containing the standard 

deviations of the first N variables in SPS II internal floating 

point format. 

______ 



5. Parameter card. 

6. As many cards as needed, 8 numbers per card, containing ^(N+l) 
simple correlation coefficients in SPS II internal floating point 
format. 
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Program 80-i+A- -Printed Results 

If CON 8, column hj, is zero or. blank, the following regression statistics 
are printed. 

1. Index of dependent variable. 

2. Standard error of Y.X, square root of the unbiased estimator of 

2 

CT Y.X. 




3. R Squared, coefficient of multiple determination, unadjusted for degrees 

of freedom. 

k. Sum of squared residuals. 

SQR «= S(Y. - Y.) 2 
m i i' 

5. Number of independent variables used. May be less than N-l if positive 
levels of FIN and FOOT are used or if the independent variables are 
linearly dependent. 

6. Constant term. 

7. For each independent variable used: 

a. Variable index. 

b. Regression coefficient. 

c. Standard error of regression coefficient. 

d. T ratio (b) divided by (c). This statistic is used to test whether 
the associated regression coefficient is significantly 



different from zero. If the standard error of regression co- 
efficient is zero, the T value is not computed. The number 
printed as the T value in this case is the number stored from 
previous computations. If CON 18, column 57, is a digit, the 
same set of regression statistics are printed for each ex- 
cluded independent variable. 
E. Program 80-kA--Punched Output 
1. Step output 

If CON 11, column 50, is a digit, all of the sequential "steps" are 
punched. If it is a blank or zero, only the final step is punched. 
The step output is read and printed or punched in explicit decimal 
format by 80-B or C and is also used as input to 80-D, the residual 
program. The format of successive steps is the same. If only the 
final step is punched, the "step number" is automatically set at 
"999. " otherwise, successive steps are numbered 1, 2, 3, etc. Step 
output consists of: 
a. First card 
Columns 

1- 3 Step number. 

k- 6 Index of dependent variable. 

7" 9 Number of independent variables used. 

10-12 N. 

Following five entries in SPS II internal floating point format. 
Columns 
21-30 Constant term. 

31-^0 R Squared. 

Ul-50 Standard error of estimate. 



3h. 

Columns 

51-60 F level at which last independent variable was added 

or deleted. 
61-70 Sum of squared residuals. 
7^-76 Step number. 
77-80 Sequence number. 
Sequence number starts at 1 and continues for all steps. All 
step cards have a step and sequence number in columns 7U-80, ex- 
cept the IND card(s). 

b. IND card(s) 

The first N columns of the IND card(s) record the current status 
of all variables. A zero indicates an excluded independent vari- 
able; a 1 indicates an included independent variable; a ^ (0-2-8 
multiple punch) indicates a dependent variable. 

c. As many cards as needed for regression coefficients, 7 per card, 
in SPS II internal floating point format. 

d. As many cards as needed for standard errors of regression coeffi- 
cients, 7 per card, in SPS II internal floating point format. 

e. As many cards as needed for t ratios, 7 per card, in SPS II in- 
ternal floating point format. 

2. Transformed upper triangular correlation matrix 

If CON 12, column 51, is a digit, the transformed correlation matrix 
is punched. Assuming that the dependent variable, Y, is the last vari- 
able and that all independent variables, X, are used, the stepwise 
process begins with the upper-triangular simple correlation matrix 
and ends with a transformed correlation matrix. 



( 
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Thus, the last column of the transformed correlation matrix con- 

it P p 

sists of N-l normalized" regression coefficients and 1-R , where R 
is the unadjusted coefficient of multiple determination. Normalised 
regression coefficients are those obtained when each variable, Xj, 
is normalized by defining: 




If L is the index of the dependent variable, I is the index of the Ith 
independent variable, {Jj is the Ith normalized regression coefficient, 
and Bj is the Ith regression coefficient: 

s L 

B i"s~ p i* 

In other words > the actual regression coefficients are the normalized 
coefficients readjusted for the change in scale due to division by- 
standard deviations. 

The remaining elements of the transformed correlation matrix form 
the inverse of the matrix of simple correlation coefficients among the 
independent variables. 
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If there are several dependent variables, the transformation is: 

-1 









R 




xy 




R 


V ; 


yy 







R 



-R R ~ 1 

yx xx 



R _1 *v 

xx xy 



R - R R -1 R 
yy yx xx xy 



In this case, the columns of R R are columns of normalized 

xx xy 

regression coefficients, each column being associated with a differ- 
ent dependent variable. 

The submatrix R - R* R 1 R is the normalized variance- 
yy yx xx xy 

covariance matrix of residuals of the separate regression equations, 

-1 P 
and the diagonal elements of R - R R R are the (l-R )'s for 

yy yx xx xy \ / 

the separate regression equations. 

The Y's can either be "intentional" dependent variables as speci- 
fied for QO-kE, Multiple Dependent Variable Regression, or they can be 
excluded independent variables if COM 18, column 57 of the parameter 
card is a digit and one or more independent variables have been ex- 
cluded due to multicollinearity. Multicollinearity is here arbi- 
trarily defined as a diagonal element of (R - R R -1 R ) < 0.001 

yy yx xx xy' — 

2 

which implies an H > 0.999 between an excluded independent variable 
and the included set of independent variables. 

Note (l) that only the upper triangle is recorded, (2) that the 
dependent variables or excluded independent variables are not neces- 
sarily grouped to the right, and (3) that the lower left-hand sub- 
matrix is the negative transpose of the upper right-hand submatrix. 
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Suppose that the dependent variables occur first. This implies that 
the matrix transformation would be: 



yy 



xy 



R - R R -1 R 

yy yx xx xy 



xx xy 



-R R 

yx xx 



In this case, since the upper triangular matrix is stored, the 

rows of -R R would be the negative of the normalized regression 
yx xx ° 

coefficients, and the sign would have to be changed in computing the 
B*s. In general, the dependent variable or excluded independent vari- 
able can appear in any location, and the following scheme holds: 



Column 



K 


h 




h 




h 








(1-R 2 ) - Pk+1 .. - h 



Row E 
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Further clarification of the transformed correlation matrix fol- 
lows . Consider the element in the Ith row and Jth column , I must be 
less than or equal to J since only the upper triangular matrix is 
present. All elements, where both I and J are indexes of dependent 
or excluded independent variables , form the upper triangular normal- 
ized variance-covariance matrix of residuals. 

If the column index, J, is the index of a dependent or excluded 
independent variable and the row index, I, is the index of an included 
independent variable , the element is a normalized regression coeffi- 
cient. 

If the row index, I, is the index of a dependent or excluded in - 
dependent variable and the column index, J, is the index of an included 
independent variable , the element is the negative of a normalized re- 
gression coefficient. 

The punchout of the transformed correlation matrix is of the fol- 
lowing form: 

a. Parameter card. 

b. As many cards as needed, 8 numbers per card, for the N(N+l) 

2 

elements of the upper triangular transformed correlation 
matrix . 

3. Reinverted correlation matrix 

If CON 13, column 5 2 , is a digit, the transformed correlation matrix 
is reinverted and punched. The format is the same as for the trans- 
formed correlation matrix. 

Program 80-^B 

The printed and punched output of 80-^B is the same as that for 80-kA ex- 
cept that the step output is for the regression statistics of »n speci- 
fied dependent variables and, if CON 18, column 57, is a digit, of excluded 
independent variables. 



6 



39. 

G. Program 80-4C 

The printed and punched output of 80-4C is the same as for 80-4A except 
that the step output consists of regression statistics for each of the 
specified alternate dependent variables. 

The transformed correlation matrix in this case is the inverse of the 
correlation matrix for all variables, dependent as well as independent. 

H. Programs 80-B and C 

The printed output of 80-B and the punched output of 80-C consists of the 
translation of punched card output from 80-2, 3, 4A, 4B and/or 4c into 
explicit decimal format complete with alphabetic headings. See the sample 
problem output in Section V. 

I. Program 80-D 

By option, as indicated on the control card for 80-D, individual residual 
output may be printed, punched, printed and punched, or neither printed 
nor punched. 

In all cases, the alphameric card is read and printed. Also printed 
are the data, problem number, number of variables, and number of observa- 
tions. 

In all cases, the summary statistics are also printed: (l) the number 
of observations actually used, (2) the sum of the residuals, (3) the average 
value of the residuals disregarding sign, (4) the computed sum of squared 
residuals, and (5) the Durbin-Watson test statistic for serial correlation. 
If the entire set of data used originally to compute the regression sta- 
tistics are used in the residual program, the sum of residuals should be 
approximately equal to zero; the computed sum of squared residuals should 
be approximately the same as that computed by 80-4 by means of a short-cut 
formula. 



a 



40. 

For information about the Durbin-Watson statistic, see "Testing for 
Serial Correlation in Least-Squares Regression, I and II," Biometrika , 
Vol. 37 > pp. 409-428 and Vol. 38, pp. 159-178. 

If the individual residual data are printed and/or punched, the data 
given are (l) the sequence or observation number, (2) the actual value of 
the dependent variable, Y, (3) the predicted value based on the regression 
equation, Y, and (4) the residual, Y-Y. 
Program 80-E 

On sense switch control, 80-E prints in explicit decimal format the input 
data and/or prints the transformed data. In all cases, it prints in ex- 
plicit decimal format the sums of the input data and, if transformations 
are used, the sums of the transformed data. 
Explicit Decimal Format 

The subroutine that translates from internal floating point form to decimal 
form uses a fixed format wherever possible: Up to four digits to the left 
of the decimal preceded by a minus sign where appropriate, the decimal, 
and five digits to the right of the decimal. If the numbers are too large 
or too small, the output format begins with the appropriate power of ten 
and follows with the decimal and five digits, that is: 
+YY +.XXXXX 

Because of the limitation on the size of number handled in the explicit 
decimal format, it is desirable to scale the variables so that all output 
numbers will have an absolute value less than 9999.00 and greater than 
0.00009. Scaling by tens can be accomplished through selection of the 
appropriate data input format codes . 
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V. SYMBOL IDENTIFICATION, CORE LAYOUT, AMD PROBLEM SIZE 
Parameter Card 

All of the following parameters, as well as the 18 one-digit constants, are 
contained on the parameter card as punched from memory. All but OBSER are 
on the parameter card prepared for input. 



Symbol 


Description 


Field 
width 


Field 
address 




Date . 


5 


001+07 




Problem number • 


2 




NOBS 


Number of observations. 


5 


00l+ll+ 


NFORM 


Number of 6-digit format codes used to describe 
data format. 


3 


001+17 


INVAR 


TJiTmh^T* r\"P n rmn+ vn t**i n"hT ^ 

HiUULUsZx \J± -LllJJU.C' Val ldUi.CO • 




001+20 


NOVAE 


Number of words required in DATA1 to store all 
input and transformed variables. 

NOVAE S INVAR 

NOVAE 2 N 


3 


00 1+23 


N 


Number of variables used in regression. Includes 
both dependent and independent variables. 


3 


00^26 


NDEP 


Number of dependent variables. Used only with 
ADV regression 


3 


001+29 


NOTRAN 


Number of transformations . Also number of 8- 
digit transformation codes defining transforma- 
tions . 


3 


001+32 


NOCON 


Number of transformation constants. 


3 


001+35 


NCOL 


Number of card columns read. If NCOL is blank, up 
to j6 columns per card are read. 


2 


001+37 


NELIM 


Number of variables eliminated when using the load 
and delete option. Also the number of 2-digit in- 
dexes read in to identify variables to be deleted. 


3 


ooUi+o 


OBSER 


Number of observations, internal floating point 
format . 


10 


001+81 



1+2. 



Addresses of Data Fields Computed for Each Problem 



Symbol 


Description 


Location of 
field address 
of first field 


IND 


N 1-digit fields classifying variables 
as dependent, X , excluded independent, 
0, or included independent, 1. 


001+86 


ID 


N 2-digit fields containing the indexes 
of the included independent variables. 


001+91 


IDD 


WTO^'P O — A "f rr-i + ■P-i ol A g a i rinnr? +"ho -I rt — 

ri-UEix t"uigiij xxcxci£> cunxaxniiig unc ±11 
dexes of dependent variables. Used only 
vith ADV. 


001+96 


FORMAT 


KF0KM 6-digit format codes. 


00501 




NOTRAN 8-digit transformation codes • 




CONST 


NOCON 10-digit transformation constants 
(internal floating point). 


00511 


DATA1 


TffftVA'R 1 O-rH ctt + fi Ac TTcoH + r\ o+rvro 
I1VVnI\ lv UJ.gX O llClUJD . UbCU. OU o OUI C 

floated input and transformed variables. 


00516 




±jNviii\ xu-cngix nexus, useo. xo copy 
floated input variables. 


00521 


B 


N 10-digit fields. Regression coeffi- 
cients. 




SE 


N 10-digit fields. Standard errors of 
regression coefficients . 


00531 


T 


N 10-digit fields. T ratios. 


00536 


SUML 


N 10-digit fields. Sums of variables 
or means. 


0051+1 


SIGMA 


N 10-digit fields. Standard deviations 
of variables . 


0051+6 


R 


N(N+l) 10-digit fields. Sums of squares 
2 and cross products or correlation 
coefficients. 


00551 


WT 


One 5 -digit field. Weight for weighted 
regression. (N+l)st location of DATA1. 


00556 
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C . Memory Allocation , Programs 80-1 Through 80-k 



Symbol 


Number of 
fields 


Field 
width 


Field address of 
first field 


1ND 


N 


1 


13, ^00 


ID 


N 


' 2 


. + N+l 


IDD (ADV only) 


N 


2 


+ 2N 


FORMAT 


NFORM 


6 


+ SN+k 


INDEX 


NOTRAN 


8 


+ [Next largest 
multiple of 78 greater 
than 6 (NFORM)] +k 


CONST 


NOCON 


10 


+ (jNfext largest 
multiple of 80 greater 
than 8 (NOTRAN)] +2 


DATA1 


NOVAR 


10 


+ 10 NOCON 


DATA2 


INVAR 


10 


+ 10 NOVAR 


B 


N 


10 


+ 10 INVAR 


SE 


N 


10 


+ 10 N 


T 


N 


10 


+ 10 N 


SUML 


N 


10 


+ 10 N 


SIGMA 


N 


10 


+ 10 N 


R 


S (N+1| 

2 


10 


+ 10 N 



D. Size of Problem 

Since the addresses of data fields are computed for each problem, it is not 
possible to specify exactly how many variables can be handled. One procedure 
is to compute the address of R from the table in Part C. and add 5N(N+l). If 
this number does not exceed the capacity of the memory, the problem can be 
run. If the problem does exceed the capacity of memory, this will be de- 
tected by Program 80-1 as it clears R. If an address is formed exceeding 
memory capacity, the computer will halt on a MAR check. 



hh. 

As a rough indication, however, the following problem sizes are reason- 
able upper limits: 



Memory capacity 


N 


20K 


30 


kOK 


65 


60K 


85 



C 
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VI . SAMPLE PROBLEMS 

A. STEPWISE REGRESSION. 

THE CARD IMAGES USED IN THE FOLLOWING SAMPLE PROBLEM ARE 
GIVEN BELOW. THE FIRST SIX CARDS ARE HEADER CARDS AND FOLLOW 
PROGRAM 80-1. THE REMAINING CARDS ARE DATA CARDS AND FOLLOW 
PROGRAM 80-2. AS INDICATED ON THE PARAMETER CARD, CARD NUMBER 
THREE OF THE HEADER CARDS, THE OPTIONS SELECTED ARE 

1. STEPWISE REGRESSION. 

2. TWO PASS INPUT. 

3. PUNCH SUMS DECK, 
it. PUNCH MEANS DECK. 

5. PUNCH STEPS. 

6. PUNCH TRANSFORMED CORRELATION MATRIX. 

7. PUNCH RE INVERTED CORRELATION MATRIX. 



PROGRAM 80, TEST PROBLEM, FERBER DATA. STEPWISE REGRESSION. 
SENSE SWITCHES ONE AND TWO ON TO PRINT INPUT AND TRANSFORMED DATA. 
O5T5630T00031OO2O05O0SOO5 4 1 1 11111 

* 

1 1 200 1 20 300 1 30400 1 2040 1 00 
010700040703 



1 


33480 


3440 


6110 


2980 


2 


15370 


3730 


2560 


7510 


3 


27900 


3790 


3700 


0220 


4 


28770 


3680 


1550 


3150 


5 


32560 


3580 


4020 


0980 


6 


28270 


3660 


3640 


7500 


7 


26740 


3330 


4320 


8030 


8 


25600 


3630 


3470 


2620 


9 


17550 


3870 


1350 


2740 


10 


19400 


3440 


5250 


7510 


11 


32750 


3760 


1880 


5360 


12 


18790 


3810 


3360 


10130 


13 


24550 


3270 


8300 


0800 


14 


30 3 70 


3050 


6830 


10930 


15 


16310 


3610 


2600 


7210 


16 


31990 


3450 


3260 


2540 


17 


18360 


3600 


3070 


3910 


18 


38100 


3640 


7680 


4960 


19 


22770 


3440 


7860 


5190 


20 


34050 


3450 


2560 


2620 


21 


24120 


2990 


6140 


5780 


22 


22 640 


3790 


2900 


3190 


23 


22950 


3470 


6650 


1630 


24 


16790 


3860 


5720 


10960 


25 


24490 


3940 


1930 


0130 


26 


27050 


3630 


2210 


2940 


27 


30520 


3610 


4350 


0440 


28 


27770 


3560 


3950 


21 30 


29 


24310 


3730 


4370 


0170 


30 


32790 


3840 


2780 


2040 


31 


30380 


4070 


1620 


1620 
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PROGRAM 80, TEST PROBLEM, FERBER DATA. STEPWISE REGRESSION. 

SENSE SWITCHES ONE AND TWO ON TO PRINT INPUT AND TRANSFORMED DATA. 

05 15 63 



PROB 01 


05 VAR 


00031 OBSER 








1 .00000 


33.48000 


3.44000 


6. 11000 


2. 


98000 


33.48000 


3.44000 


6. 1 1000 


3. 51094 


2. 


98000 


2.00000 


15 37000 


3 . 7 3000 


2.56000 


7 


51000 


1 ^ 37000 


3.73000 


2 .56OOO 


2.73241 


7. 


51000 


x nnnnn 


77 90000 


3. 79000 


3 70000 




22000 




3.79000 


3 70000 


3 . 32862 




22000 


L nnnon 


?fi 77nnn 

£.\J « / / UUU 




1 . 55000 


j • 


1 5000 


?8 77000 


3 68000 


1 . 55000 


3. 35933 


3. 


15000 


5.00000 


32.56000 


3. 58000 


4 . 2000 




98000 


32. 56OOO 


3. 58000 


4.02000 


3.48308 




98000 


6.00000 


28. 27000 


3.66000 


3 . 64000 


7. 


50000 


28.27000 


3 . 66000 


3. 64000 


3.34180 


7 


50000 


7.00000 


26.74000 


3. 33000 


4.32000 


8. 


03000 


26. 74000 


3.33000 


4. 32000 


3.28616 


8. 


03000 


8.00000 


25. 60000 


3 . 63000 


3.47000 


2. 


62000 


2*, 60000 


3. 63000 


3.47000 


3. 24259 


2. 


62000 


t) .00000 


17 5 5000 


3. 87000 


1 .35000 


2 . 


74000 


17.55000 


3. 87000 


1 . 35000 


2.86505 


2. 


74000 


10.00000 


1 9.40000 


3.44000 


5. 25000 


7. 


51000 


1 9.40000 


3.44000 


5.25000 


2.96527 


7. 


51000 


11 .00000 


32.75OOO 


3.76000 


1 . 88000 


5. 


36000 


32.75000 


3.76000 


1 . 88000 


3.48890 


5. 


36000 


12.00000 


18.79000 


3.81000 


3.36000 


10. 


13000 


18.79000 


3.81000 


3.36000 


2.93332 


10. 


13000 


1 3.00000 


24.55000 


3. 27000 


8.30000 




80000 


24. 55000 


3 . 27000 


8. 30000 


3.20071 




80000 


14 .00000 


30.37000 


3.05000 


6.83000 


10 


93000 


30 . 37000 


3 . 5000 


6.83OOO 


3.41345 


10. 


93000 


15.00000 


16.31000 


3. 61000 


2 . 60000 


7. 


21000 


16.31000 


3.61000 


2.60000 


2.79177 


7. 


21000 


16.00000 


31.99000 


3.45000 


3.26000 


2 


54000 


31.99000 


3.45000 


3.26000 


3.46542 


2. 


54000 


17.00000 


18.36000 


3.60000 


3.07000 


3 


91000 


18.36000 


3.60000 


3.07000 


2.91017 


3 


91000 


18.00000 


38.10000 


3 . 64000 


7 • 68000 


4 


96000 


38.10000 


3.64000 


7 . 68000 


3.64021 


4. 


96000 


19.00000 


22.77000 


3.44000 


7.86000 


5. 


19000 


22.77000 


3.44000. 


7.86000 


3. 12544 


5 


19000 


20.00000 


34.05000 


3.45000 


2.56000 


2 


62000 


34.05000 


3.45000 


2.56000 


3.52783 


2 


62000 


21 .00000 


24.12000 


2.99000 


6. 14000 


5 


78000 


24.12000 


2.99000 


6. 14000 


3.18304 


5 


78000 


22.00000 


22.64000 


3.79000 


2.90000 


3 


19000 


22.64000 


3.79000 


2.90000 


3.11971 


3 


19000 
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o 2 nnnnn 


i.c. ypuuu 


2 L.7nnn 
5 .*+ /UUU 


O. Dt>UUU 


1 . 63000 


Li. . y;>UUU 


5 .*t /UUU 


A Acnnn 
D. O^UUU 




1 . 63000 


• uuuuu 


i A 7 onnn 
I o . / yuuu 


2 ft£nnn 


/200U 


10 . yoooo 


I o • / yuuu 


2 ft Ann n 
J . o ouu u 


c 7 onnn 
3 . / /UUU 


L . OZO /O 


10 . yoooo 


• uyuuu 


zi.M-yuuu 


5 . ynuuu 


1 2AAA 

i . y30uu 


. 1 3000 


Ik 49000 




i Q2nnn 




1 2_nnn 


26.00000 


27.05000 


3.63000 


2.21000 


2.94000 


27.05000 


3.63000 


2.21000 


3.29768 


2.94000 


27-00000 


30.52000 


3.61000 


4 . 35000 


.44000 


30.52000 


3.61000 


4.35000 


3.41838 


.44000 


28.00000 


27.77000 


3.56000 


3.95000 


2. 13000 


27.77000 


3.56000 


3.95000 


3.32395 


2. 13000 


29.00000 


24.31000 


3.73000 


4.37000 


. 17000 


24.31000 


3.73000 


4.37000 


3.19088 


. 17000 


30.00000 


32.79000 


3.84000 


2.78000 


2.04000 


32.79000 


3.84000 


2.78000 


3.49012 


2.04000 


31.00000 


30. 38000 


4.07000 


1 . 62000 


1 . 62000 


30.38000 


4.07000 


1 . 62000 


3.41378 


1 . 62000 



DEP VAR 
STD ERR Y.X 
R SQUARED 
SUM SQR RES 
I NO VAR USED = 

CONSTANT TERM = 



VAR 

01 

02 

03 

04 



C0EFF 
1.54226 
-4.72247 
.04037 
-43.52735 



05 
2.75292 
. 36438 
197.04329 
04 

121.50376 

STD ERR 
.70715 
2.77896 
.32815 

17.41512 



T RATIO 

2.18094 
-1.69936 
. 1 2304 
-2.49939 



PROGRAM 80-B, PRINTED REPORT, DATA FROM PROGRAMS 80-1 THROUGH 80-4A, 
05 VAR 00031 0BSER 



05 15 63 
PR 0B 01 



SUMS OF VARIABLES 

807.49000 111.72000 125-99000 

SUMS OF SQUARES AND CROSS-PRODUCTS 

1076.59310 -5-52406 29.84175 



100.20248 



127.92000 



43.54082 -207.53780 



.46. 



1 .72053 



-8.95880 
117.55392 



AVERAGES 

26.04806 
STANDARD DEVIATIONS 

5.89311 

CORRELATION MATRIX 
1 .00000 



3 . 60 387 
.23558 

-.12835 
1 .00000 



TRANSFORMED CORRELAT I ON MATR I X 
71 .03785 -2.23070 
1.75323 



RE I NVERTED CORRELATION MATRIX 
.99999 -.12835 
. 99999 



4.06419 

1.94732 

.O8388 
-.62994 
1.00000 



-.93940 
1.07519 
1.67038 



.O8388 
-.62994 

.99939 



-.26654 
1.31591 
1 .78720 



3.23233 
.24010 

.99262 
-.15200 

.0907 8 
1 .00000 



-70.76750 
2.38312 
.94425 
71.52188 



.99261 
-.15200 
.0907 8 

. 99999 



-5.40457 
35.79956 
-9.32909 
310.00524 

4.12645 

3. 16230 

-.35924 
-.23401 
.18753 
-.39634 
1.00000 

2.87408 
-.35181 

.02486 
-3.30494 

.63561 

-.35924 
-.23401 
.18753 
-.39633 

.99999 



V y 



STEP 001 



DEP VAR 

STD ERR Y.X 
R SQUARED 
SUM SQR RES 
I NO VAR USED 

CONSTANT TERM 



05 

3.00176 
.15708 
261.30792 
01 

20.99906 



VAR 
04 



COEFF 
-5.21993 



STD ERR 
2.24538 



T RATIO 
-2.32474 



STEP 002 



DEP VAR 
STD ERR Y.X 
R SQUARED 
SUM SQR RES 
IND VAR USED 



05 

2.88982 
.24572 
233.83002 
02 



CONSTANT TERM 



VAR 

02 

04 



COEFF 

-4.04329 

-5.82295 



37.51973 

STD ERR 
2.22902 
2.18705 



T RATIO 

-1.81393 

-2.66246 



STEP 003 



DEP VAR 
STD ERR Y.X 
R SQUARED 
SUM SQR RES 
IND VAR USED 

CONSTANT TERM 



05 

2.70224 
.36401 
197.15803 
03 

122.84497 



VAR 
01 
02 
04 



COEFF 

1.54976 
-4.93730 
-43.71246 



STD ERR 
.69154 
2.12217 
17.03064 



T RATIO 

2.24100 
-2.32652 
-2.56669 




50. 



STEP 004 



DEP VAR 
STD ERR Y.X 
R SQUARED 
SUM SQR RES 
IND VAR USED = 

CONSTANT TERM = 



VAR 

01 

02 

03 

04 



COEFF 

1.54226 
-4.72247 
.04037 
-43.52735 



05 

2.75292 
.36438 
1S7.04329 
04 

121.50376 

STD ERR 
.70715 
2.77896 
.32815 

17.41512 



T RATIO 

2.18094 
-1.69936 
. 12304 
-2.49939 



B. MDV REGRESSION. 

PRINTED BELOW ARE THE CARD IMAGES OF THE HEADER CARDS USED FOR 
MDV REGRESSION. THE MDV SAMPLE PROBLEM FOLLOWS. 

PROGRAM 80, TEST PROBLEM, FERBER DATA. MDV REGRESSION. * 
VARIABLES 3 AND 5 DESIGNATED THE DEPENDENT VARIABLES. 
O5I563OIOOO3IOO2OO5OO5OO5 4 11 11111 

1 1 02000 1 20 3000 1 30400 1 2040 100 
010700040703 



■KSr.cf * III 1 PR0ELEM . FERBER DATA. MDV REGRESS I ON, 
VARIABLES 3 AND 5 DESIGNATED THE DEPENDENT VARIABLES, 
uc 15 63 



PROS 01 

52 
64 
01 



05 VAR 



00031 OBSER 



DEP VAR 
STD ERR Y.X 
R SQUARED 
SUM SQR RES 
IND VAR USED 



03 
1.61446 
.40133 
70.37526 
03 



CONSTANT TERM 



33.21727 



si. 



VAR 
Ot 
02 
04 



COEFF 
.18583 
-5.32057 
-*k 581*62 



STD ERR 
316 
1.26789 
10. 17^99 



T RATIO 

A4978 
-4 . 1 9637 
-.45057 



DEP VAR 
STD ERR Y.X 
R SQUARED 
SUM SQR RES 
I ND VAR USED = 

CONSTANT TERM <= 



VAR 
01 
02 
04 



COEFF 
1.54976 
-4.93730 
-43.71245 



05 
2.70224 
.36401 
197.15805 
03 

122.84496 

STD ERR 
.69155 
2.12217 
17.03065 



T RATIO 

2.24099 
-2.32652 
-2.56669 



C. ADV REGRESSION. 

PRINTED BELOW ARE THE CARD IMAGES OF THE HEADER CARDS USED FOR 
ADV REGRESSION. THE ADV SAMPLE PROBLEM FOLLOWS. 

PROGRAM 80, TEST PROBLEM, FERBER DATA. ADV REGRESSION. 
O5I563OIOOO3IOO2OO5OO5OO5 5 4 11 11111 

0102030405 

01010 2000 1 20 3000 1 30400 1 2040 100 
010700040703 



o 



PROGRAM 80, TEST PROBLEM, 
05 15 63 

PROB 01 05 VAR 



FERBER DATA. ADV REGRESSION. 
00031 OBSER 



DEP VAR = 01 

STD ERR Y.X = .70195 

R SQUARED = .98810 

SUM SQR RES = 12.81144 

IND VAR USED =04 

CONSTANT TERM « -105-75663 

VAR COEFF STD ERR T RATIO 

02 1.13756 .71281 1.59587 

03 .02978 .08349 -35667 

04 25.03370 -59482 42.08589 

05 .10027 .04597 2.18094 



DEP VAR 
STD ERR Y.X 
R SQUARED 
SUM SQR RES 
IND VAR USED 



02 



04 



.18431 
.48664 
.88324 



CONSTANT TERM 



VAR 

01 

03 

04 

05 



COEFF 

.07842 
-.06592 
-2.12175 
-.02116 



10.49025 

STD ERR 
.04914 
.01777 
1 .23002 
.01245 



T RATIO 

1.59587 
-3.70921 
-1.72496 
-1 .69936 



a 
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DEP VAR 
STO ERR Y.X 
R SQUARED 
SUM SQR RES 
IND VAR USED = 

CONSTANT TERM « 



VAR 

01 

02 

Ok 

05 



COEFF 

.16349 
-5-24941 
-3.95462 

.01441 



DEP VAR 
STD ERR Y.X 
R SQUAREO 
SUM SQR RES 
IND VAR USED = 

CONSTANT TERM = 



VAR 

01 

02 

03 

05 



COEFF 

.03936 
-.04839 
-.00113 
-.00445 



DEP VAR 
STD ERR Y.X 
R SQUARED 
SUM SQR RES 
IND VAR USED = 

CONSTANT TERM = 



VAR 

01 

02 

03 

04 



COEFF 
1.54225 
-4.72247 
.04037 
-43.52732 



03 
1.64473 
.40168 
70.33432 
04 

34.74932 

STD ERR 
.45839 
1.41523 

11.56145 
.11713 



04 

.02783 
.98872 
.02014 

04 

2.40028 

STD ERR 
.00093 
.02805 
.00331 
.00178 



05 
2.75292 
.36438 
197.04338 
04 

121.50368 

STD ERR 
•70715 
2.77896 
.32815 

17.41512 



T RATIO 
.35667 

-3.70921 
-.34205 
. 12304 



T RATIO 
42.08589 
-1.72496 
-.34205 
-2.49939 



T RATIO 

2.18094 
-1.69936 
.12304 
-2.49939 



D. PROGRAM 80-D, RESIDUAL ANALYSIS. 

RESIDUALS BASED ON FINAL STEP OF ADV SAMPLE PROELEM. 



05 VAR 



05 15 63 

PROB 01 

OBS 

000 1 
000 2 
000 3 
0004 
0005 
000 6 
0007 
0008 
0009 
0010 
001 1 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
00 29 
0030 
0031 



00031 OBSERVATIONS 
SUM RES = .00091 
AVE AB RES= 1. 98785 

SSQR = 197.04434 

DSOR/SSQR = 2.36817 



00031 OBSER 



ACTUAL 


PR ED 


RES 


2 


98000 


" • J • 1 1 *» 


— 1 3377ii 


7 


.51000 




—1 0C1 Q3 

— 1 . 1 y i 




22000 




-\ . 0/7 m 


3 


15000 




. O I HH i 




98000 


3. 3661 6 




7 


50000 






8 


03000 






2 


62000 


2 . 84 1 68 


— 99 1 AR 
• Li. 1 00 


2 


74000 


5. 64074 


—9 qnn72i 


7 


51000 


6 31Q7Q 


1 1 Qn 9 1 


5 


36000 




9 RQnca 


10 


13000 


4 . °4600 


p. lotUU 




80000 




_Ji 1 J. -7 

^+ . 1 HV $ 1 


lo! 


93000 


5. 63576 


5. 29424 


7. 


21000 


8.19615 


-.98615 


2. 


54000 


3.83905 


-1 .29905 


3. 


91000 


6.27052 


-2.36052 


4. 


96000 


4.93527 


.02473 


5- 


19000 


4.65078 


.53922 


2. 


62000 


4.27145 


-1.65145 


5. 


78000 


6.28143 


-.50143 


3. 


19000 


2.84638 


.34362 


1. 


63000 


4.39512 


-2.76512 


10. 


96000 


6.61928 


4.34072 




13000 


1.53310 


-1 .40310 


2. 


94000 


2.62896 


.31104 


.44000 


2 . 90 7 93 


-2.46793 


2. 


13000 


2.99678 


-.86678 




17000 


2.66683 


-2.49683 


2.04000 


2.13658 


-.09658 


1. 


62000 


.60958 


1.01042 
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E. ANALYSIS OF SUBGROUPS. 

SAME DATA USED IN PREVIOUS EXAMPLES HAVE BEEN SEPARATED INTO 
TWO GROUPS, THE FIRST OF WHICH CONSISTS OF THE FIRST FIFTEEN 
OBSERVATIONS, THE SECOND OF WHICH CONSISTS OF THE LAST SIXTEEN 
OBSERVATIONS. 



SUBGROUP 1, 15 OBSERVATIONS, ONE PASS. 

05 VAR 00015 OBSER 



09 06 63 
PROB 01 



SUMS OF VARIABLES 

378.41000 53.65000 58.94000 

SUMS OF SQUARES AND CROSS-PRODUCTS 

05 .10094 1347.29160 1533.72130 
192.62250 205.50330 
286.59940 



AVERAGES 

25.22733 
STANDARD DEVIATIONS 

6.04303 
CORRELATION MATRIX 
1 .0000 



3.57666 

.22126 

-.30687 
1 .00000 



3.92933 

1.91493 

. 26974 
-.83478 
1.00000 



47.94345 

1232.78930 
171.19956 
190.57294 
154.23894 



3.19623 
.25827 

.99539 
-.32454 

.29481 
1 .00000 



77 . 67000 

1866.53350 
275.06590 
305.42850 
244.19053 
571.15030 

5.17800 

3.35633 

-. 30526 
-.24541 
.00246 
-.31229 
1 .00000 



o 
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STEP 993 

DEP VAR = 05 

STD ERR Y.X = 3.29620 

R SQUARED = .35700 

SUM SQR RES = 108.64977 

IND VAR USED = 04 

CONSTANT TERM = 93-12915 

VAR COEFF STD ERR T RATIO 

01 .34406 K52391 .22577 

02 -t3. 73560 7.07790 -1.94063 

03 -1.07502 .82464 -1.30362 

04 -13.54074 35.90330 -.37714 



SUBGR0UP2, 16 OBSERVATIONS, ONE PASS. 

05 VAR 00016 OBSER 



09 06 63 
PROB 02 



SUMS OF VARIABLES 

429.08000 58.07000 67.05000 

SUMS OF SQUARES AND CROSS-PRODUCTS 

05 .12016 1557.27410 1777.91610 



211.72250 



AVERAGES 

26.81750 
STANDARD DEVIATIONS 
5.64160 



3.62937 



24554 



239.58960 
343.00230 



4.19062 



1.96883 



52.25902 

1420.83210 
189.650 68 

217.98523 
171.43658 

3.26618 
.21632 



50.25000 

1257. 99710 

180.53670 
250.26270 
159.96104 
266.71070 

3.14062 

2.60881 



57- 

CORRELATION MATRIX 

1.00000 -.00081 -.11364 .99228 -.38041 

1.00000 -.48609 -.01990 -.17946 

1.00000 -.14861 .48288 

1.00000 -.46125 
1 .00000 



STEP 999 

DEP VAR = 05 

STD ERR Y.X = 1.73234 

R SQUARED = .69684 

SUM SQR RES = 33.01137 

IND VAR USED = 04 

CONSTANT TERM = 160. 38578 

VAR COEFF STD ERR T RATIO 

01 2.29510 .68643 3-34350 

02 -2.24307 2.16360 -1.03673 

03 .19405 .28048 .691 85 

04 -64.74405 18.05107 -3-58671 



SUBGROUP 1 , 15 OBSERVATIONS, TWO PASS. 
09 06 63 

PROB 01 05 VAR 00015 OBSER 

SUMS OF VARIABLES 

378.41000 53.65000 58.94000 47.94345 77-67000 

SUMS OF SQUARES AND CROSS-PRODUCTS 

547.77361 -6.15483 46.82227 23.30374 -92.87348 
•73433 -5.30543 -.27818 -2,73380 

55,00448 2.18712 .23717 



58. 



AVERAGES 

25.22733 
STANDARD DEVIATIONS 

6.04 303 
CORRELATION MATRIX 
1 .00000 



3-57666 
.22125 

-.30688 
1 .00000 



3.92933 

1-91493 

. 26974 
-.83478 
1 .00000 



1 .00059 

3.19623 
.25827 

• 99539 
-.32453 

.29481 
1.00000 



-4.06068 
168.97502 

5.17800 

3-35633 

-.30526 
-.24541 
.00246 
-.31228 
1 .00000 



STEP 999 

DEP VAR 
STD ERR Y.X 
R SQUARED 
SUM SQR RES 
IND VAR USED = 

CONSTANT TERM = 



VAR 

01 

02 

03 

04 



COEFF 
.34271 
-13-73528 

-1.07511 
-13-50861 



05 

3-29628 
.35697 
108.65518 
04 

93.05992 

STD ERR 
1-52385 
7.07833 
.82472 

35.90170 



T RATIO 

.22489 
-1.94046 
-1-30359 
-.37626 
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SU6GROUP2, 16 OBSERVATIONS, TWO PASS. 

05 VAR 00016 OBSER 



09 06 63 
PROB 02 



SUMS OF VARIABLES 

429.08000 58.07000 67.05000 

SUMS OF SQUARES AND CROSS-PRODUCTS 

509-24321 -.01812 -20.19727 

.96469 -3.75999 
62.02088 



AVERAGES 

26.81750 
STANDARD DEVIATIONS 

5.64160 
CORRELATION MATRIX 
1.00000 



3. 62937 
. 24554 

-.00081 
1.00000 



4.190 62 

1.96883 

-.11364 
-.48609 
1 .00000 



52.25902 

19.37582 
-.01690 
-1.01272 
.74871 



3.26618 

.21632 

.99229 
-.01989 
-.14861 
1 .00000 



50 . 25000 

-89.58227 
-1.83939 
39.68379 
-4.16493 

108.89428 

3. 14062 

2.60881 

-.38041 
-.17946 
.48288 
-.46126 
1 .00000 



r 
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STEP 999 



DEP VAR 
STD ERR Y.X 
R SQUARED 
SUM SQR RES 
IND VAR USED = 

CONSTANT TERM = 

VAR COEFF 

01 2.29870 

02 -2.24545 

03 .19354 

04 -64.83929 



05 

1.73087 
.69736 
32.95504 
04 

160.61097 

STD ERR 
.68635 
2.16179 
. 28027 
18.04904 



T RATIO 

3.34915 
-1 .03869 
.69055 
-3.59239 



COMBINED GROUPS, ONE PASS. 

05 VAR 



09 06 63 
PROB 01 



00031 OBSER 



SUMS OF VARIABLES 

807.49000 111.72000 125.99000 

SUMS OF SQUARES AND CROSS-PRODUCTS 

05 .22110 2904.56570 3311.63740 
404.34500 445.09290 
629.60170 



AVERAGES 

26.04806 
STANDARD DEVIATIONS 
5.89311 



3.6038 7 4.0 6419 

.23558 1.94732 



100.20248 



3-23233 



24011 



1 27 . 92000 



2653.62140 3124.53060 
360 . 85024 4 55 - 602 60 
408.55817 555.69120 
325.67552 404.15157 
837.86100 



4.12645 



3.16230 



\ J 
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CORRELATION MATRIX 

1.00000 -.12834 .08388 .99260 -.35924 

1.00000 -.62993 -.15200 -.23401 

1.00000 .09078 .18753 

1.00000 -.39633 
1.00000 



STEP 999 

DEP VAR = 05 

STD ERR Y.X = 2.75374 

R SQUARED «= .36400 

SUM SQR RES == 197.16039 

I ND VAR USED .« 04 

CONSTANT TERM = 121.25260 

VAR COEFF STD ERR T RATIO 

01 1.53782 .70645 2.17680 

02 -4.71950 2.77966 -1.69786 

03 .04049 .32825 .12337 

04 -43.41737 17.39774 -2.49557 



COMBINED GROUPS, TWO PASS 
05 VAR 



09 06 63 
PROB 02 



00031 OBSER 
SUMS OF VARIABLES 

807.49000 111.72000 125-99000 

SUMS OF SQUARES AND CROSS-PRODUCTS 

1057. 01680 -6.17295 26.62500 
1.69902 -9.06542 
117.02537 



100.20248 

42.67956 
-.29508 
1.17439 
1.74931 



1 27 . 92000 

-182.45575 
-4.57319 
39.92097 
-8.22561 
277.86930 
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AVERAGES 

26.04 80 6 3.60 387 

STANDARD DEVIATIONS 

5.83929 .23410 
CORRELATION MATRIX 

1.00000 -.14566 
1.00000 



4.06419 3.23233 4.12645 

1.94293 .23754 2.99391 

.07570 .99253 -.33666 

-.64290 -.17116 -.21047 

1.00000 .08208 .22138 

1.00000 -.37309 
1.00000 



STEP 999 



DEP VAR 
STD ERR Y.X 
R SQUARED 
SUM SQR RES 
I ND VAR USED = 



05 

2.66538 
.33525 
184.71178 
04 



CONSTANT TERM = 

VAR COEFF 

01 1.42606 

02 -3.84201 

03 .12273 

04 -40.22568 



110.35052 

STD ERR 
.69031 
2.77233 
.32381 
17.04627 



T RATIO 

2.06582 
-1.38583 
.37903 
-2.35979 



RESIDUAL ANALYSIS, COMBINED GROUPS, TWO PASS 

STEP OUTPUT USED WITHOUT CHANGE. ALL OBSERVATIONS. 



09 06 63 








PKOB 02 




05 »AR 


AAA 2 1 AD CCD 

000 31 UBotK 


OBS 


ACTUAL 


PRED 


DCC 
Kto 


000 1 


2 . yoooo 




I.HI 0/0 


0002 


7 .51000 


8. 33926 


. ozyzo 


0003 


.22000 


2. 1 3434 


-I . y l*t 34 


0004 


3 • 1 5000 


2.29050 


. 03 IHH 


0005 


. yoooo 


3.41 273 


— 2.4 3Z/ 3 


0006 


7 . 50000 


Z.OZ41 3 


4 .0/50/ 


0007 


. 3000 


h .U 3 1 / 


3- yyoz4 


AAA Q 


L • OZUUU 


4 qa 1 £7 


. zo 1 0/ 


AAA O 

uuuy 


O Tii AAA 


C Ji «>£3A 

5 .4Z03U 


_0 Aft £.2 A 
— Z . OOD3U 


AA 1 A 

00 10 


7 • 5 1000 


0. 1 o3oy 


1 2kAl 1 

1 . 3*+o 1 1 


AA 1 t 

UU 1 1 


5- 5OUUU 


O JiQC Jll 


z • octpy 


0012 


10.13000 


4.92560 


5 . 20440 


0013 


. 80000 


5.06493 


-4.26493 


0014 


10.93000 


5.47169 


5.45831 


0015 


7.21000 


7.75788 


-.54788 


0016 


2.54000 


3-71649 


-1.17649 


0017 


3.91000 


6.01488 


-2.10488 


0018 


4.96000 


5.21117 


-.25117 


0019 


5.19000 


4.84709 


.34291 


0020 


2.62000 


4.05791 


-1.43791 


0021 


5.78000 


5.97317 


-.19317 


0022 


3.19000 


2.93852 


.25148 


0023 


1 . 63000 


4.52327 


-2.89327 


0024 


10.96000 


6. 698O8 


4.26192 


0025 


.13000 


1.72180 


-1.59180 


0026 


2.94000 


2.59860 


.34140 


0027 


.44000 


3.03149 


-2.59149 


0028 


2.13000 


3.05118 


-.92118 


0029 


.17000 


2.86816 


-2.69816 


0030 


2 .04000 


2.30646 


-.26646 


0031 


T . 62000 


.91440 


.70560 



000310BSERVATIONS 

SUM RES > .00090 

AVE AB RES= 1.96785 

SSQR - 198.21127 

DSQR/SSQR = 2.38650 



o 



GROUP 1, COLUMNS 21-30 OF FIRST STEP CARD MODIFIED TO REFLECT 
APPROPRIATE CONST TERM FOR FIRST GROUP, 111.03216. 



09 06 63 

PR OB 01 05 VAR 00015 OBSER 



OBS 


ACTUAL 


PRED 


RES 


0001 


2 


98000 


5.07992 


-2.09992 


0002 


7 


51000 


9.02090 


-1-51090 


000 3 




22000 


2.81598 


-2.59598 


0004 


3 


15000 


2.98020 


. I6980 


0005 




98000 


4.09437 


-3.11437 


0006 


7 


50000 


3.30577 


4.19423 


0007 


8 


03000 


4.71340 


3.31660 


0008 


2 


62000 


3.58331 


-.96331 


0009 


2 


74000 


6.10794 


-3.36794 


0010 


7 


51000 


6.84553 


.66447 


0011 


5 


36000 


3.17705 


2.18295 


0012 


10. 


13000 


5.60724 


4.52276 


0013 




80000 


5-74657 


-4 . 94657 


0014 


10 


93000 


6.15333 


4.77667 


0015 


7 


21000 


8.43952 


-1.22952 



000 150BSERVAT IONS 
SUM RES = -.00103 
AVE AB RES= 2.64373 
SSQR m 138.48109 

DSQR/SSQR = 2.47376 



5 



65. 



GROUP 2, COLUMNS 21-30 OF FIRST STEP CARD MODIFIED TO REFLECT 
APPROPRIATE CONST TERM FOR SECOND GROUP, 109-71869. 



09 06 63 








PR OB 02 




05 VAR 


00016 OBSER 


OBS 


ACTUAL 


PRED 


RES 


0001 


2.54000 


3.08466 


-. 54466 


0002 


3.91000 


5-38305 


-1.47305 


0003 


4 . 96000 


4.57934 


.38066 


0004 


5 • 1 9000 


4.21526 


. 97474 


0005 


2 . 62000 


3.4 2608 


-.80608 


0006 


5.78000 


5-34134 


.43866 


0007 


3.19000 


2.30669 


.88331 


0008 


1 . 63000 


3.89144 


-2.26144 


0009 


10.96000 


6.06625 


4.89375 


0010 


.13000 


1.08997 


-.95997 


0011 


2.94000 


1.96677 


.97323 


0012 


.44000 


2.39966 


-1 .95966 


0013 


2 . 1 3000 


2.41935 


-.28935 


0014 


.17000 


2.23633 


-2.06633 


0015 


2.04000 


1.67463 


.36537 


0016 


1 .62000 


.28257 


1.33743 



000 160BSER VAT IONS 
SUM RES ■ -.11339 
AVE AB RES= 1.28798 
SSQR = 46.23151 

DSQR/SSQR = 2.81337 
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1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out. in typewriter or pencil, do not use ink) 

Date 



1. Does the abstract adequately describe what the program is and what Yes No, 

it does? 

Comment _____ _' 



Program No. 

> 

| Program Name: 



2. Does the program do what the abstract says ? Yes No, 

Comment ___ _____________ ' 

3. Is the Description clear, understandable, and adequate? ' Yes No 
Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No, 

Comment [ t ___>____________________ — -__. ' 

Are the Sense Switch options adequately described (if applicable)? Yes_ No, 

Are the mnemonic labels identified or sufficiently understandable? Yes No 

Comment ____ _______ 

5„ Does the source program compile satisfactorily (if applicable)? Yes No, 

Comment 



6. Does the object program run satisfactorily? Yes ,No_ 

Comment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment 



8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No, 

Comment ; ______ 

9. Were all necessary parts of the program received? Yes_ No, 

Comment ; __________________ 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name . 



Mr. Richard Pratt Company . 

Data Corporation . 

7500 Old Xenia Pike Address , 

Dayton, Ohio 45432 ___ 

User Group Code 

THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATIONS PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED 
TO PARTICIPATE IN THIS EVALUATION. 

-/)- 11/09/64 
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a 



VU. FLOW CUM2TS 

P£06£AKA 60-1, INITIALIZATION 



STAtTi 
I — - | CAgg.lA&E RETURN | 



eEAP ALPHA. GAE.D 



| WRITE ALPHA ~1 




HEAP ANP FLAG 
PMlAtsA.ETEIZ.% 






initialize poe 

ItC APING 76 COL. 












| K.- N 


- NELINV [ 


CA.PP 




| \NP 


= 194-00 | 






I TEMPI 








|TEMP1 -■ TEMPI *K. +• i | 






| IP~TE*APi | 




| TEMPI = TEMPL t2t | 






| IPP = 


TEKAPi. 1 


CAPPl 




|TEMM. = TEMPl*2K- + 4. | 






| F OHM AT 


= TEMPI | 


I 


| TEMP2= 


nfoem 1 






| CTZ.-0 | 


INC 




I OTE = 








I TEMP2 = TEKAP2 13 | 




tempi = 

TEMPI* 16 GTE.+- 4- 



| \NPEX 


= TEMPI | 






| TEMP2 - 


NOTfcAN | 








IMC2 




| CTK. * 


CTlvl | 


1 


| TEMP2 - TEMP2. 10 | 




CONT. 



TEVM>1 = TEMPI 
4&o CTB. + 2 







tempi - tempi 

+ 10 HOLOM 



DATA I » TE^PI I 



tempi ■ im?i 

+ 10 MOVAR 



| PAT A 2 = TEKA.P1 



CAPP2 




1&NAP1 = TEMPI 
+ 10 INVAR 







TEVAP1 = TEMPI 



SE = TENVP~1~1 



TEMPI = TEWVPI 
4 10£ 

1 

T= TEKAP1 



TEMPI = 7&^P1 
+ 10*. 



= TEFAPTl 



TEMPI = TEMPI 
4- 



= TENv.Pl 



TEMPI = TEMPI 



£ = TE.MP1 1 



T 



FIM = ZE.IZO 



FOOT= ZE.B.O 




HEAP AN7PU6 




I COUNT =■ K- | 



ILIMP 



EEAP INF CAW? 







h$VBJLb5 &Y AO 









\*> YE y> 

NOTCAN>0 



gPCON 

HEAP ANP FLAG 
FomAT CAE.P 

FOR. TRANSFORMATION 



EEAP, FLOAT 
ANP t)TOE.E 
THAN^FOHMATION 
COM $TANT> 

E.PTZAN 1 



R.EAP AN? FLAG 
TIZAM^FOEMATION 




E,EAP ANP PLA& 
FOIZNAAT CAILP 
FOR FIN. FOOT 



LEAP, FLOAT AMP 
5TQP.E f-IM.FDUT 



2.EAV AMP FLA6 
F0E.MAT5 
FOE PAT A 



WGTS 



VJT- VAT A 1 



MO 




OWEB = FLOATEP 
NOES 



CUZ. 



CLE.AJ2. IP, 6UfAl, 
SI6NAA AMP g. 



I PE.INT PATE 



T 



PR.1NT NUIN&EB. 
OF VAa'lAftLLS 
{ 




HEAP FOZ.MAT 
CA2P FOB. 
FIN, FOUT 



HEAP, FLOAT 
AMP 5>TOIZ£ 
FIN, FOOT 




LPE1 



T 



2.6 AP NUM&Etl OF 
VACIA&LE5 AFTE£ 
&LINAIN ATiOM 
AMP FLAG 




as Ay AMP PLAG 
mPEXE^ OF VAlilA&ltf 
TO ELM I HI ATE 



?hint wmti OF 

0ft5Eg.VATlOM» 



EET2 , 

IS1EAULATE LOAPt 



) 



PeOGEAW SO- 2, ZlkV, FLOAT AMP STOEE CAT ft., TE.A.USFOCM. 
y&JA, FOSZtA 5UWb AUC bUNto OF PC0PUCT5. 



5TAKT2 



TIZIGI. - O 
F1E.6T PA<=?b 



LOOPS 



1Z.EAC7, P-LOAT ANt? 
6T0E.E ONE 
OBSERVATION 
INVAE MIM&EE6 



TtLAN^Foew 

PAT A 



| SUNMT=- 0.0 I 





PATA, 




SXCI) = SiXCD-v MX), 

1= 1,N 
IF VJEl GWTEP 

f SUMWT= SUUVJT+ W 





FOEtA WEANS 
1= 1,M 



teisi - i 

5EC0NP PkSS 




2XtI1XU> £X(DX(3) 
tXCT)XQ)j I = 1X J-I.Vi 
IF \WE\6UTEP £E6., 



i 

COUNT = COUNT- 1 1 






PE.O&R.ANA FOfcM MEANS, STANPAE.P PEVlATlOWbj 

ANP CO£E.£»-&.TtON 



COL 
S CON5 = i 
2 PASS 






2X(I) 




O&SER. 


1 = 


1,H 



X =• 4. 



| UVCT2 » N | 



J - = X 



LA/4- 



LVCT1 =• LVCT2 




X = I ■»■ I 



3=1 



|\-VCT£ g LVCT2 - j" 





cr(I) = 




LSP3 


crCX) = 




LSP4 


1 = 




1 


LVCTi= 


LVCT1-1: 



T 



1 LN/CT^l =■ N | 



1 LVCT 2 = LVCT1 1 
COE1 I 



J- J+l 



1 

| LVCT2 = LVCT2-ll 




I LV6T1= LVCT1-U 



© 




LVGT 1 = M 



I - 1 



»P1 F 



1= 14-1 



T 



LVCT1 =• LVCT1-11 

X 

LV6T1 >0 



IM910 
1? 



NO 



^OL 49 , , 
COM lO =• 1 
PUNCH 
&EAI^ 



?vucu mum, 



END 3 



FLOATEP MOBb 



1 

[ SIMULATE LOAP 



Pe062.AKA 80- 4A, STEPWI&E B-EGCESSIOM ANALYSIS 



6TAET 4- 

4 7F-06SEE. 








SEQUENCE MO. « 1. 
STEP MO. = O 







1 COUNT = M 1 




I - I+S. 



COUNT = COUMT- lTl 




EE.E.02 UALT 
NO PEP. VACIA&LE 



L = X 



S>T\N2 



ftVt?&E<=5 
OF g(L,L) 



IS 

ITCM4 0M. 



VE5 



| 60UMT - N | 



| AP= IMP 1 



STW24- 



PUNCH CAet> FE.0M AP 



AP» AP ■* 60 



1 COUNT « COUMT-Sol 




PUNCH MEAM5,SIGWA5 
AMP GOe&ELATlON 
N>ATfclX 


STW23 


1 C0UWT»M 






1 x 








! vp = 


FHIGK 






t VE = 


ZEES 






tempi «.ppooi-ea,i)j 



^UAUT^ 



T 





o 




I PF * PF + 1.0 | 
) 

ITI2-AN5FO&M E MATEIXI 




HO 



COKAVUTE. NOlNj 



COMPUTE £E6£E^loW 
6TAT\6T\C$ 



f = 


2. (.1.1) 






I TEMPI = FOOT-F 



TEMPI = ECI.IVVE 



F=(0F*VE)/T£WP1 







TEMPI ~ F1N-F 




KL= IVE 



FORM 



PUNCU HEGEE^ION 
STATISTICS 



T 








COMPUTE NOIN 




COMPUTE 



punch mx&tm 

STATIST" I £9 




I COMPUTE NOIM 



I MCNT = N 




L= IVE 



COMPUTE HEGef^/oN 
STATISTIC* 




P21NT mZ£MOU 





PUNGM 
ft MATE.1X 




K,= 1 



YE* 

I COUNT = M j 




PUMGU 
E.E I MVEETEP 
g. MATRIX 



FINAL 

SIMULATE LOAP 1 



c'G. 

PeOfiKAM 60-4&, MULTIPLE PEPEMPENT VAHIAW.E ' KSEESSION 



STAK. 4B 



«>TWZ3 



PF = OBSEe 




(?F = PF - l 


7F 1 




STEP 


NO. - O 


SEQUENCE MO.= 1 




| COUMT=Kl | 






1 ftP = 


IMP | 


MPOI 




| PUNCH OAKS' FKOM AP~| 






1 AP = 


AP+$0 | 






| COUNT - COUNT- «0 | 




fUNCU ME AM 5, SIGMAS 
AMP COE.R.ELATI OM 
MATeiX 



HALT 



M?6 



COUNT = N 






.} =■ 1, OF 
POTENTIAL ine VAe. 






U\6H 






3= 



COUNT* COUNT- 1 | 
T 




NO 

( N\M0P] 





COMPUTE NOIN 

T 

KACUT - M 




L = WG. 



COMPUTE 

ST AT16T1C 5 



7UUCU a^UE^lOM 
4TATpTlCe> 




-I WE « IMS- + 1 




1 COM? UTE. NO\M "1 
I MGNT = U 1 



WE = 1, ?0TEUT\IU. 

OF EX6LUPG.P 
IWEPEWENT VAfllAftLE 

I 




9 





1V£ . | 






compute. Regression 
statistics 






PUNCH REGRESSION 
STATISTICS 



YES ^ COL 47 

^IS C0N8 - P16IT 

^SUPPRESS prin 
MO 



PRINT REGRESSION 
STATISTICS 



I MCNT = MGNT - 1 1 






1 K = K + 1 1 






f COUNT 


=COUNT-i i 




PUNCH 0- 



final 




SIMUUTE. LOM? 




rZCX&kM &0-AC, ALTEK.MATE PEPENPENT VAJZ.tA&\-E KEGHE^SIOU 




AP= 1NP ~j 



| HP = A? 4- &0 ~1 



1 CMTKt= CNTei-gp] 




PUNCH t*EAN&,5l&MVS 
IkMP C0RK.ELAT10M 
NVATE.I* 



UALT 




CNT11 Tt N 



| HV6U - O. Q ~| 




PIV3 

|TEMP i » UI6H - g(I,I)| 




PIV4 



[TEMPI- 0.001-Zll,l) 




PIV5 



K = I 



PW6 



I = I + i 



CNTttl=CWTKl- 




NO 


l*|TeAMSF0RM I MATE.lV 






| PP- 


PF- 1.0 



o 



o 



APV 



APV 



COMPUTE NOIN 




WRITE : 
ALMOST 


MAT2IX 
S1M6ULAQ 




1 MALT 


ADVi 


1 MCNT 


= NDEP 1 






1 NOIM = 


•NOIM-1 1 




[ M- 


= 1 1 


ADV2 


\ L= IDD(M) 1 






! I = 


L-i | 






CNTE1 = N | 






ADDRESS 
OF R(l.l) 



15 
1=0 



ii 



NO 



• IAPKK»APlOU10CNTRl I 




EY=0B5E2. I— 1 



I TEMP1~PF *g(L.L:> 



l£V=<r L VEy/ tempi I 



I - 1 
I 




1-1*1 



15 

I >N 



YES 



1 CTZ= N 1 






1 J- 


i 1 




AB.j= APPIZE55 OF 
AI7 ' J R(L.J) 



APU = 


APPEE5* OF 


f»T£2 




TEMPI = 




ECAPK1C) 


f»TE 5 



TEMP2=EY* 


i/e(j;-TEMPi 




STEfc 




TEW2 



NO 



7 

© 



IZEG1 




csae 









tempi ~ 






TEW72 = %(U* %(U 



TEMPI = TENIP1-TEMP2 



TEWiPl = TEMPI* 0&5E2 



TEM.P2 =■ SQg./TEMPt 



T = I 



J = 1 



CNTZ-l =. N 



IS 

r =• u 



r — i +- i 



CNTE.1 = CNTg.1- 1 

I 




v 




PROGRAM 80A, LOAD, DELETE AND/OR CUMULATE SUMS OR MEANS DECKS 

I. NOBS(l), N(l); From parameter card read by 80-1. 

N0BS{2), N(2); From parameter card--first card of sums or means deck. 
N(3); Number of variables after elimination, read by 80-1. 

II. INDEXES: Loading sums, means and standard deviations. 
I; Index of variable on card, I = 1, 2, 8. 
Y(K); Variables on cards, K = 1, 2, N(l). 
X(j); Variables in memory, J = 1, 2, N(3). 
ELIM(M); Indexes of variables eliminated, M = 1, 2, NELIM. 

III. INDEXES: Loading sums of products or correlation coefficients. 
I j Index of variable on card, 1=1, 2, 8. 
Y(L,K)j Variables on cards, 

L = 1, 2, N(l); 
K = L, L + 1, N(l). 
X(j)j Variables in memory, 

N(3)#(3) + 27 
J = 1, 2, - . 



ELLM(M1 or M2) \ m for row com P aris °n s 
) M2 for column comparis 



comparisons. 
Ml = 1, 2, NELIM 
M2 = Ml, ML + 1, NELIM 



PROGRAM 80A - IOAP, DELETE umo/ob. OMJL&TE SIMS OC MEAUS DECKS 



\-OAP 



CNTE. » CON 16 
NUNV&EZ OF SETS 



I MOP* 1 - i f 



NOBS - 



LOAP2. 



E.EAP PA2.AMETEE. 
CAE.P(S) 



LOAD INTO 5UML 
d « i 



I - I 



|M0B5»MOgg>+NO8«2H 




WK.ITE •' N POE5 
NOT A6I2EE 



MALT 



L0AP3 





e.EAP PATA 
CAUP 






I M = 


1 






| K = 


t 






lLOAP \NTO 








1 I - 


1 








ZtAP PAZAPAETEE 
CAK.9 WEAP\N& CT 







Compaq 




I2.EAD DATA CAE.P 1 






1 x = 


- 1 1- 



M0VE2 




J* i 



1=1 



Ml- 1 



hA2 = 1 



P-EAP PARMMHEP- CA2.P, 
UEAPIN6 FOE. 6UMS OF 
PRODUCTS OR. COttfLATIOMS 



1 REAP PATA CARP j 






V~ 




L 1 


KAV\NP 




1 


W2. 




Ml I 



r 



T&TCQL 



1 kai ° i»Al. •*- l 




ZVCAZP 
YEf? » s 
L = M 




leEAP PATA CAZPl 






1 I 


= 1 1 




o 



• 6TAB-T B 



i— IREAP ALPUA CARP | 




REAP PACMAETEE. 



PRANT HEAVING 



"SUMS OF VARIABLES' 



I pcint 5UUS 



PE.INT: 

*5UN\S OF SQUARES 
ANPCR06SPR0I7UCT5' 




K.t?»AAT2 



REAP PARAMETER 
CARP 



PRINT 1 
"CORRECTION MATRIX* 



PRINT CORRELATION 
COEFFICIENTS 




■^TE5T^ 



TRANSFORMED MATRIX 



PR.\NT CORRELATION 



REAP PARAMETER. 
CARP 




(40 

I PRINT MEAP1N6 



pe\NT= 
'REINVERTEP KAATR1X' 



PRINT CORE.ELAT\ON 
MATR\y 



T 

^TE5T^0^ 



© 



ZlkV 


STEP 
CMLD 






IZ.EA.5? \HS7E X CWiP 



B.EM7 REGRESSION 
COEFFICIENTS 



EEAP t>TAWAJZ.P 
EE.f2.0fce> OF fcEfcRfcVyON 
COEFFICIENTS 



EEAP T efeHOS I 



IPRIHT STEP MO. 



PIWT INDEX OF 
PEPENPENT VACLIUBIE 



7Z\NT 5TAN17AR.I? 
EZROE OF ESTIMATE 



1 PRINT g. 5QUAT2.E P 



PK.INT 51M OF 
5aUA£EP E.ESIPUAL5 



(7K.\HT NUMBER OF 

INDEPENDENT 
VAR\fk?>lE5 USEP 



PK.INT CONSTANT 
TERM 




ZE° 
2! -q 
OC 



O m 



1 COUNT ~ COUNT- il 





P£OGEAM 806- PUUCU F1MAL \ZEPOP_T 



TUE FLOW CUACT FOE. 80C IS ESSENTIALLY SIVMUML 
TO THAT FOE. 80&, EXCEPT TUAT CAE.P \MA6ES AEE. 
PUNCUEP m'iTEAP OF TXPEC. 



PfcOGEAM ©017- 1ZESIPUAL MUL^S 



5TM2-TP 

lEEftP CONTEOL CAS.P 1 

ALPH , ' 

— ~ | CLEAE. ALPHA I 
I REAP ALPHA CAEP~~1 



7E.mT ALPHA 1 




1 fUNCU ALPHA 1 




EEAP AMP FLAG 
PAP-AVAETEP.S 



P.EAP 5TEP 
UEAPEIZ CAE.P 







1 COUNT = H 1 



AV= INP ~1 



fcEAP IMP CASH? 
mTO AP 



1 AP » AP + 60 I 



1 COUNT= COUNT-H 




HEAP B'S 



HEAP 


SE'S 






J2.EAP T'S 






CLEAE. ALPWA 






TKAU&NUT 


COLUNAM 
TD ALPHA 




PEEpq+i=T~> 



1 OgSE j2> 0.0 I 



SQg= 00 



I SAVE = 0.0 1 
| 76Qg= 0.0 | 



SUKAIZ.ES = 0.0 



1 SUhAft&= 0.0 | 



LOOP 




EEAP, FLOAT ANC 
?>T0fcE i OBSERVATION 




YES 

7IHHT \N7UT PAT A | 




Tg.AN^>Fog.M pat a 




CMC 



i = t 



COUNTS 




I COUNT = COUNT- 1 




7ATAIU = 


. e PATAU) 






PEEP= 








iz.es = 






7ATA(L>10 PATA(L1 












£ES=10* es 








se& + i | 



MO 



PREP7 

1 FLOAT SEQUENCE NO. 



T 

I CLEAR MP14& 1 



TILftMSNWT SEQUENCE 
NO. TO ALPUA 



FLOAT PATACL} 
ANP TEAUSNUT 
TO ALPUA 





TEMPI = £ES* K.ES 



|SQ.g.= 5Q.g. 4 TEMPI I 



SUMHES=SUMEES*fcES 








| peEP<u\ = i | 



| P5Qg=0.0 



© 



PIZ.OGIZAM 80E - 5UM GUEGIC PE.OGZANA 



$TAiZT E 


|E£AP ALPHA CM2P 1 






1 TYPE 


ALPUA j 



<CALPU)Ul58 = 




No 


ILEA? AW FLAG 
PAE.AMETEE.S 






COUNT 




LOOP 




fcEAP, FLOAT I 5T0et 
ONE OBSERVATION 



CUMULATE SUM 5 OF 
INPUT VARIABLES 

I 



CUMULATE SUMS 
OF TeANJSFOR-MEP 
VAg.\AgLES 




PE.INT T2ANSF0E.MEP 
VAE.1 A&LES 



EN7 

I COUNT^GOUNT- 1 1 - 





PE.INT: "SUM'S OF 
TeAM5F0etAEP 
VARIABLES'' 



I PE.INT SUNVS | 



U ALT 



STMiTE 




I 



© 



VUl. SPS PeOGCMA U5TIMG5 



00010* PROGRAM 80-1, INITIALIZATION, 
00020* OCT. 10, 1963. 
000 30REF OS , 1 3I4OO 



00040 
000 50C ON T 
000600ATE 
000 70 PR OB 
00080N0BS 
00090NF0RM DS 
00 100 INVAR OS 
00T10N0VAR DS 
00120N DS 
00130NDEP DS 
00140N0TRAN DS 



OORG 402 
DSS 80 



00150N0C0N DS 
00160NCOL DS 
00170NEUM DS 
00180C0N1 DS 
00190C0N2 
00200CON3 
00210CON4 
00220C0N5 
0O 230 C0N6 
00240C0N7 
00250C0N8 
00260C0N9 
00270CON10 DS 
00280C0N11 DS 



DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 



6.CONT+5 

2. CONT+7 
5.CONT+12 

3, CONT+15 
3.CONT+18 
3.C0NT+21 
3.C0NT+24 
3.CONT+27 
3,CONT+30 
3.CONT+33 

2. C0NT+35 

3, C0NT+38 
1.C0NT+39 
1.C0NT+40 
1.C0NT+41 
1.C0NT+42 
1 ,C0NT+43 
1.C0NT+44 
1.C0NT+45 
1 .CONT+46 
1,CONT+47 
1 .CONT+48 
1 ,C0NT+49 



MULTIPLE REGRESSION SYSTEM, 



13400 00000 
001+02 

00402 OOOBQ- 
00407 00006 
00409 00002 
-00414-00005 
00% 17 00003 
00420 00003 
00423 00003 
00426 00003 
00429 00003 



00435 00003 
00437 00002 
00440 00003 



-0044+00001- 

00442 00001 

00443 00001 



00444 00001 

00445 00001 

00446 00001 



00447 00001 

00448 00001 

0044 9 00001 



00450 00001 

00451 00001 



108. 



00290C0N12 


DS 


1 .CONT+50 




00300CON13 


DS 


1 .CONT+51 


00452 000O1 


00310C0N14 


DS 


1 ,CONT+52 


00453 00001 


00320C0N15 


DS 


1 .CONT+53 


00454 00001 


O0330C0N1 6 


DS 


1.C0NT+54 


00455 00001 


00340C0N17 


DS 


1.C0NT+55 


00456 00001 


00350C0N18 


DS 


1.C0NT+56 


00457 00001 


003600BSER 


DS 


10.CONT+79 


-- 00450 00001 


00370 IND 


DS 


5 


00481 00010 


00 380 ID 


DS 


5 


00486 00005 


00390 1 DD 


DS 


5 


00491 00005 


00400 FOR MAT 


DS 


5 


00496 00005 


00410INDEX 


DS 


5 


0050t 00005 


00420C0NST 


DS 


5 


00506 00005 


004 30DATA1 


DS 


5 


00511 00005 


00440DATA2 


DS 


5 


00516 00005 


004 50B 


DS 


5 


00521 00005 • " 


00460SE 


DS 


5 


00526 00005 


00470 T 


DS 


5 


00 5 31 00005 


00480SUM1 


DS 


5 


-■ 00536 00005 


00490SIGMA 


DS 


5 


00541 00005 


ftn m rtD 

UU500K 


DS 


5 


00546 00005 


00510V/T 


DS 


5 


00551 00005 


00520ADKK 


DS 


5 


00556 00005 


00530ADRNN 


DS 


5 


00561 00005 


00540ADI J 


DS 


5 


00566 00005 


00550ADRI J 


DS 


5 


00571 00005 
00576 00005 



109. 



0056OS ic:\3 


;.S 


5 


00581 00005 


OC570COUi\T 


OS 


5 


00586 00005 


005?oc;:t,-; 


os 


3 


00589 00003 


O059OCTR 


OS 


3 


00592 00003 


00600 i 


as 


3 


00595 00003 


00610J 


OS 


3 


00598 00003 


00 620 K 


OS 


3 


00601 00003 


00 630 L 


DS 


3 


00604 0000 3 


00 640P 


OS 


3 


00607 00003 


0065OQ 


OS 


3 


00610 00003 


00660MSZ 


OS 


4 


00614 00004 


00670 IVE 


DS 


3 


00617 00003 


00680 1 VP 


OS 


3 


00620 00003 


00 690 TEMPI 


OS 


10 


00 630 00010 


00700 TEMP2 


DS 


10 


00640 00010 


00710A0 


DS 


10 


00650 00010 


00720EY 


OS 


10 


00660 00010 


00730RSQR 


OS 


10 


00670 00010 


00740S0R 


DS 


10 


00680 00010 


00750DF 


OS 


10 


00690 00010 








00760F 


OS 


10 


00700 00010 


00770FI 1' 


r,c 


10 


00710 00010 


OO730F0UT 


OS 


10 


00720 00010 


007':0''IG.-: 


J ^ 


10 


00730 00010 


00 300V P 


OS 


10 


00740 00010 


00 : J1OVE 


OS 


10 


00750 00010 


OO'^OUT 


OS 


so 


00830 00080 




OO83O 


JC 


1 , •' 


00831 00001 


00040 


DC 


8, 10000000 








00839 00008 


OO05OF POO 1 


DC 


2,-2 


00841 00002 


00860 


DC 


8, 10000000 


00849 00008 


OO87OFHIGH 


DC 


2, 50 


00851 00002 


00880 


OC 


8, 


00859 00008 


OO89OZER0 


DC 


2,-99 


00861 00002 


0O90OZER0S 


OC 


10,0 


00871 00010 


00910 


DC 


8,10000000 








00879 00008 


00 9 20 ONE 


DC 


2, 1 


00881 00002 


00925SU ; 1WT 


US 


10 


00891 00010 



00930* ****** ***** 
00040* SUBROUTINE TO READ, FLOAT, AND STORE NUMBERS UNDER 

00950* FORMAT CONTROL . NEEC S NUMBER OF WORDS AND INITIAL 

00960* ADDRESS WHERE STORED. 

00970* *********** 



00980WCTR 


DS 


3 


00894 00003 




00990 


DS 


5 












00899 00005 
STORE ADDRESS. 




01000RFS 


TF 


TRSMT+23.RFS-1 , , SET UP 








00900 26 01823 


00899 


01010 


tf; i 


READN-2 ,READN 


00912 16 00978 


00980 


01020 


TF 


FRMT+1 1 .FORhAT 


00924 26 00947 


00501 


01030FRMT 


TF 


SPEC , 99999 


00936 26 01939 


oqa go 


01040 


SF 


SPEC-1 


00948 32 01938 


00000 


01050 


SF 


SPEC-3 


00960 32 01936 


00000 


01060 




99999, , , READN OR L00P1 


00972 49 99999 


00000 


01070 


OORG 


*-3 


OO98O 




01030READN 


RACO 


ALPHA 


00980 37 01983 


00500 


010)0 


TFM 


READN-2, LOOP 1 


00992 16 00978 


51016 


01 100 


TFM 


ADDR.ALPHA-2 










01004 16 01944 


01981 

01937 


01 1 10L00P1 




ADOR.SPEC-2 . 


01016 21 01944 



01 120 


A 


ADDR.SPEC-2 
















01028 


21 


01944 


01937 


01 1 30 


TF 


1 NPUT, ZEROS 
















01040 


26 01958 


OO87I 


01 140 


TF 


1 NPUT-9.ZER0S-5 














01052 


26 01949 


00866 


U 1 1 50CMCUL 


CM 


AUUK , ALrHA + 1 54 










U I 1 DU 






01064 


14 


01944 


02137 


BNL 


RE AON 








01 1 62 






01076 


46 00980 


01300 


CM 


SPEC-4 














01088 


14 01935 


Ooooo 


01 164 


BE 


STEP1 
















01 100 


46 OI89O 


01200 


01 170 


TDM 


S I GN2 , 
















Oil 12 


15 


01974 


00000 


01 180 


TF 


D1+6,ADDR 














01124 


26 


01262 


01944 


01 190 


TF 


□ 2+ 1 1 ,D1+6 














PER+6,D1+6 


OII36 


26 01291 


01262 


01200 


TF 












01 148 


26 01306 


01262 


01210 


TF 


D4+6,D 1+6 
















01 160 


26/01330 


01262 


01220 


TF 


RET+6,D1+6 
















01172 


26 


01250 


01262 


01230 




RET+6, 1 , Iff 
















01 184 


12 


01250 


0000"! 


01240 


TFM 


D2+6, 1 NPUT 














01 196 


16 


01286 


01 958 


01250 


TFM 


D5+6, 1 NPUT 










01260 






01208 


16 


01354 


OI958 


_ . - 
TFM 


SETFL+6, 1 NPUT+1 












01220 


16 


01522 


01959 


01270 


S 


SETFL+6, SPEC-2 














01232 


22 


01522 


01937 


n i iOnn r t 


SF 


99999, , ,audr-i 
















1244 


32 


99999 


00000 


a f o fin n f 
Ul2yuU| 


Ln 


99999, 70, 10 
















OI256 


14 


99999 


00070 


1 300 


D 1 


DTD 
r tK 
















1 268 


47 


01300 


01 300 


n i z inn o 


TD 


Qqqqq qqoqq INPUT AnnR 
















01280 


25 


99999 


99999 


01320 


W 


CHG+20 














01292 


49 


01408 


00000 


01330 


DORG 


*-3 


01300 








01340PER 


CM 


99999,03, 10.ADDR 
















01300 


14 


99999 


00003 


01350 


BE 


CHG 
















01312 


46 


01388 


01200 


01360D4 


CM 


99999,20,10 
















01324 


14 


99999 


00020 



01370 


BE 


M I N 


01380D5 


TDM 


99999,0,, INPUT 


01390 


P. 


CHG+20 


01400 


DORG 




O1410MIN 


SF 


SIGN2 


01420 


B 


PER+48 


01430 


DORG 


*_ 3 


01 440 CHG 


AM 


SETFL+6, 1, 10 


01450 


B 


*+32 


01460 


DORG 


*-3 


01470 


SM 


D2+6.1 , 10 


01480 


SM 


D5+6,1 ,10 


01490 


SM 


DI+6,2, 10 


01500 


SM 


D2+1 1,2,10 


01510 


SM 


PER+6,2, 10 


01520 


SM 


D4+6.2, 10 


01530 


SM 


RET+6, 2, 10 


01540 


C 


D2+6.SETFL+6 


01550 


BNL 


RET 


01560SETFL 


SF 


99999,,, (1 NPUT+1 


1570MOVE 


CM 


1 NPUT ,0 , 10 


01580 


BE 


ZEROX 


01590 


TF 


COMN, ZEROS 


01600 


CF 


C0MN-9 


01610 


TFM 


EXPNT, I NPUT+1 


01 620 


S 


EXPNT, SETFL+6 


01630 


TF 


BRNCH+1 1 , SETFL+6 



01336 46 01368 01200 
01348 15 99999 OOOOO 
01360 49 01408 OOOOO 

01368- 

01368 32 01974 OOOOO 
01380 49 01348 OOOOO 

1 388 

01388 11 01522 00001 
01400 49 01432 OOOOO 
1408 

01408 12 01286 00001 
01420 12 01354 0000" 1 
1432 T2 Ol 262 O000~2~ 
01444 12 01291 0000"2 
01456 12 01306 0000"2 
011+68 12 1 330 00052 
01480 12 01250 00002 
01492 24 01286 01522 
OTSCrt *r6~ O124VO1300 
01516 32 99999 OOOOO 
01528 14 01958 OOOOO 
01540 46 01912 01200 
01552 26 01968 00871 
01564 33 01959 OOOOO 
OT576-1-6 m^f i fftW 
01588 22 01973 01522 
01600 26 01647 01522 



01640 
01650 

01660BRNCH 
1 670 . 
01680 
01690 
01700 

01710DIGIT 

01720 

01730EX 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810TRSMT 



SF EXPNT-1 

S EXPNT.SPEC 

BD DIGIT, 99999 

SM EXPNT.1,10 



AM BRNCH+11,1,10 

B BRNCH 

DORG *-3 

TF *+30,BRNCH+1 1 

AM *+l8,9,10 

TF 99999, EXPNT 

TF *+l8,BRNCH+1 1 

SF 99999 

TF TRSMT+28,EX+6 



BNF *+48,SIGN2 
TF *+30,TRSMT+28 
SM *+l8;2. 10 



SF 99999 

TFLS 99999,99999 



-0+64-2 -32-0- 1972 OOOO O 
01624 22 01973 01939 
01636 43 01680 99999 
046 48 1 2 19? 3^0000+ 



01660 11 01647 00001 
01672 49 01636 00000 

04680- • 

01680 26 01710 01647 
01692 11 01710 00009 
-O- 1704 26 99999 01 9 73 
01716 26 01734 01647 
01728 32 99999 00000 
01 74 2 6 01828 171 0- 



01752 44 01800-0+974- 
01764 26 01794 01828 
01776 12 -0+ 794 00002 



-frt-78 8 3 2 99999 00000 

01800 16 05023 01823 
01812 49 04992 00000 

01019 00005 99999 

01824 00005 §9999 

01830 11 01823 OOOTO 

01842 12 00894 00001 



01820 AM TRSMT+23, 10, 10 

01830 SM WCTR.1,10 

01840 "BHP — 0VR-2 

01850 SM SPEC-4,1,10 

01860 BP L00P1 

Ot&70STEP1 — AM- F^HT+Hr6, 10 

01880 B FRMT 



01854 47 01910 01100 
01866 12 01935 00001 
01878 46 01016 01100 



01890 11 00947 00066 
01902 49 00936 00000 



114. 



01890 


DORG 


*-3 


019000VR2 


BB 




01910 


DORG 


*-9 


01920ZER0X 


TFM 


TRSMT+28, ZERO 


01930 


B 


TRSMT 


01940 


DORG 


*-3 


01950SPEC 


DS 


8 


01960ADDR 


DS 


5 


01970INPUT 


DS 


14 


01980COMN 


DS 


10 


01990EXPNT 


DS 


5 


02000SIGN2 


DS 


1 


02001PNUM 


DS 


4 


02002MCNT 


DS 


3 


02003ALPHA 


OAS 


80 


0200 4 


DAC 


1,(3 


02010PRBL 


DAC 


6, PR OB eS) 


02020VRBL 


DAC 


5, VAR<3 


020300BSR 


DAC 


7, OBSERia 


02060START1 


RCTY 




02070 


RACD 


ALPHA 


02080 


WATY 


ALPHA 


02090 


BNR 


*+20,ALPHA+158 


02100 


B 


START1 


021 10 


DORG 


*-3 


02120 


RNCD 


CONT 


02130 


SF 


DATE-5 



04 940 

01910 42 00000 00000 
01912 

— 01912 16 1 828 5 861 
01924 4 9 01800 00000 
01932 

— 1939 00 00 8 

01944 00005 

01958 00014 
— 01960 00010 

01973 00005 

01974 0000 t 

01978 00004 

01981 00003 
01983 00080 

02143 OOUUI 

02145 00006 
02157 00005 
02167 00007 
02180 34 00000 
02192 37 01983 
02204 ~33~ 
02216 45 02236 
02228 49 02180 
02236 — — - 



00102 
00500 

02141 
00000 



02236 36 00402 
02248 32 00402 



00500 
00000 



02140 


SF 


J A TE— 3 
















02260 


32 


00404 


00000 


021 50 


SF 


OATE— 1 










021 b0 






02272 


32 


00406 


00000 


_ 

oF 


PR0E-— 1 
















022814 


32 


00408 


00000 


02 1 70 


_ 

i>F 


NOBS— *t 
















022S>6 


32 


00410 


00000 


021 1?0 


SF 


Nr UKM— 2 
















2 308 


32 


00415 


00000 


not ^ >n 




1 NvAin— 2 
















02320 


32 


0041 8 


00000 


2200 


SF 


















02332 


32 


00421 


00000 


02210 


SF 


■'J— 2 
















02344 


32 


00424 


00000 


UZZZU 


cc 
or 


MHFD o 
















AO 3C_ 


32 


00427 


00000 


n oo an 
UZZ JU 


vtF 
or 


k inTP A M_.0 
















023oo 


32 


00430 


00000 


n o of_n 

UZZHU 


cf 

or 


















02380 


32 


OOh33 


00000 


02250 


SF 


NC0L-1 










a oo£n 
UZZOU 






02352 


32 


00436 


00000 


c p 
or 


MCI 1 M_o 
















f\ 1 J.Al, 

02h0h 


32 


00438 


00000 


n olio 
UZZ/U 


TTM 
1 r PI 


l^rluUL+l 1 ,Al.rnA+ 1 ;>Z 
















02416 


16 


01075 


_ 

02135 


_____ 
022/1 


TF 


K,N 










*+ 20, CON 16 


02428 


26 


00601 


00426 


02272 


BD 
















02440 


43 


02460 


00456 


n o o i 5 
OZZ/j 


B 


CADD 














02452 


45 


02472 


00000 


0227 1 * 


D0RG 


*-3 


02460 








02275 


S 


K.NELIM 
















02460 


22 


00601 


00440 


O 1 O Oft 

022oO" 














02250" 


COMPUTE ADDRESSES FOR DATA FIELDS. 
























02310CAD0 


TFM 


IND.REF 














02472 


16 


00486 


T3400 


02320 


TF 


TEMPI, IND 
















02484 


26 


00630 


00486 


02330 


A 


TEMPI ,K 
















02496 


21 


00630 


00601 


02340 


AH 


TEMPI , 1, 10 
















02508 


11 


00630 


00001 


02350 


TF 


10, TEMPI 
















02520 


26 


004°1 


00630 


02360 


BD 


*+20,C0H3 
















02532 


4 3 


02552 


00443 



n "<7n 

UZ.3/U 




r /• 1 1 1 1 1 


'J Z j ^>u 




.'; 'J 

J> 


AO 3(1/. 

•JZ ->.'U 




TC[ • D 1 V 


n o/i An 


A 

A 


1 t'-.r I , K. 


A o/- in 
U Z't It) 


1 r 


I ~\ n TPMD1 

I JU f I trir I 


A 0/1 a r a n r\ 1 


A 


Trt'.ni 1/ 

1 trlr 1 , K. 


n 0/1 **a 
UZ^ 30 


A 
A 


TFf ' D 1 U' 


A O Ll; A 


mi 1 


TF"P1 L 1A 




yp 


F DR " f T T F M P 1 
r ur\ . tA\ 1 9 1 C ! 1 r | 


err OU 


TC 
I r 


1 c. 1 r ^ f iNr ' ' 


->U7A 
^ -CH /U 


1 r rl 


ptp n ia 


(I 9L.3A. I NT 


A' i 


r tr 1 in 




SM. 


Tcupo 1 a in 


A OCAA 


BP 


1 NC 


A or 1A 
UZ5 IU 




TTR 7A IA 
l_ li\ , / O , 1 u 


A or on 
WZjZU 




TFMP1 CK) 


A r ^A 


A 1' i 
Al 1 


TFMD 1 it 1 A 

1 tl r I , H , IU 


A or/in 


TP 

1 r 


1 [JTFY TC' ipi 


A O C CA 


1 r 


It .r Z , i'U J KA.i. 


A O C £A 


TF' i 


C TD A 1 A 


02570 1 1 iC 2 


AM 


CTR, 1 , 10 


025^0 


SM 


TEMP2, 10,10 


02590 


BP 


INC 2 


2 600 


M. 1 


C TR , 30 , 10 


02510 


A 


TEMPI ,99 


02620 


Aft 


TEMPI ,2, 10 


02630 


TF 


CONST, TEMPI 




116. 



02544 


49 


02588 


00000 


02552 








02552 


21 


00630 


00601 


02564 


21 


00630 


00601 


02576 


26 


00496 


00630 


02588 


21 


00 630 


00601 


O26OO 


21 


00630 


00601 


02612 


tl 


00630 


00054 


02624 


26 


00501 


00630 


02636 


26 


00640 


00417 


2 648 


16 


005S2 


00000 


02660 


11 


00592 


00061 


02672 


12 


00640 


000T3 


02684 


46 


02660 


01100 


026y6 


13 


00592 


00078 


02703 


21 


00630 


00099 


02720 


11 


00630 


00054 


02732 


26 


00506 


00630 


02744 


26 


00640 


00432 


02756 


16 


00592 


00050 


02768 


11 


00592 


00051 


02730 


12 


00640 


000 To 


02792 


46 


02768 


01100 


02804 


13 


00592 


OOOBO 


02816 


21 


00630 


00099 


02828 


11 


00630 


00052 


02540 


26 


00511 


00630 



02650 


A 


TEMP1-1 ,N0C0N 


02660 


TF 


JATA 1 , TEMP 1 


02670 




TEMP 1-1 , NOVAR 


02680 


TF 


DATA2, TEMP 1 


02 690 CAD D2 


• A 


TEMP 1-1,1 NVAR 


02700 


TF 


B , TEMP 1 


02710 


A 


TEMP 1-1 ,K 


02720 


TF 


SE, TEMPI 


02730 


A 


TEMP 1-1 ,K 


027^0 


TF 


T, TEMP 1 


02750 


A 


TEMP 1-1 ,K 


02760 


TF 


SUM 1 , TEMP 1 


02770 


A 


TEMP 1-1 ,K 


02780 


TF 


S 1 GMA , TEMP 1 


02790 


A 


TEMP 1-1 , K 


02800 


TF 


R , TEMP 1 


02810 


: VI 


K.5.10 


02820 


TF 


temp 1,99 


02830 


TF 


TEMP2.K 


02840 


AM 


TEMP 2, 1.10 


02350 


M 


TEMP1.TEMP2 


02 8 60 


SF 


95 


02870 


TF 


r,sz,y8 


02880 


Tfls 


FIN, ZERO 



02852 21 00629 00435 

02864 26 00516 OO63O 

02876 21 00629 00423 

02888 26 00521 00630 

02900 21 00629 00420 

02912 26 00526 00630 

02924 21 00629 00601 

02936 26 00531 00630 

02948 21 00629 00601 

02960 26 00536 OO63O 

02972 21 00629 00601 

02984 26 00541 00630 

02996 21 00629 00601 

03008 26 00546 00630 

03020 21 00629 00601 

03032 26 00551 00630 

03044 13 00601 00005 

03056 26 00630 00099 

03068 26 00640 00601 

03080 11 00640 OOOOl 

03092 23 00 630 00640 

03104 32 00095 00000 

03116 26 00614 00098 

03128 16 05023 53151 
03140 49 04992 00000 
03147 00005 00710 
03152 00005 00861 



O 



118. 



02^0 



2900 



02910* 
2920* 
2930* 
02940 

02950* 
02'. 60* 
02970- 
02930 

02990 

3000RIN : J 

0300 5 

030 1 

03020 

03030 

03040 

03050k I -ID 

03060 

3070 

03080 

3090 

03100 



TFLS FCL'T.ZEP.O 



TFLS F.ZERO 



JV' USE:). 
R I DO, co?; 3 



IEAD I Hi) CA?.D(S) 
TF COUNT , K 
TF *+l3,|t!D 

RiJCt) 99999 



AM 
SM 
F:P 

DOR 1 
TF 
SM 
TF: : 
TFM 
TF: i 



R 1 ;jd+6, 80 , 10 
COUNT, 80, 10 

R I M 
CMPL 
*-3 

RF1+6, 1 DO 
RF 1+6, 1,10 
RF2+1 1,30, 10 
RF3+1 1 ,40, 10 
RF5+11,2,10 
RF.NDEP 



03110- 

03120* IS LOAD ROUTINE USED. 
3 1 30* 

03140CHPL BO LOA0R.CON16 
03150* 

0*1 50" IS TilE NUMBER OF TRArJSFORMAT) 

3170* 



03158 16 05023 03181 
03170 49 04992 00000 
03177 00005 00720 
03132 00005 00861 

03188 16 05023 0321 1 
3200 49 04992 00000 
03207 00005 00700 
03212 00005 00861 



0321 B 43 03310 00443 



03230 
03242 
03254 
03266 
03278 
03290 
03302 
03310 
03310 
03322 
03334 
03346 
03358 
3370 



26 00586 00601 
2 6 3 260 4 8 6 
36 29999 00500 

11 3260 000 50 

12 00586 000 BO 
46 03254 01100 
49 03382 00000 

2b 04682 00456 
12 04632 00001 
16 046?? OOOBO 
16 04711 0004~0 
16 04759 00052 

27 04652 00429 



03382 43 04340 00456 

CONSTANTS = ZERO. 



( 



6 



0318OCMPR 
03190 



CM 
BP 



N0C0N,0,10 

RDCON 



03200* 
03210* 
03220* 
03236 

03240 

03250 

03260 



03394 14 00435-0006*0 
03406 46 03450 01100 



IS THE NUMBER OF TRANSF ORMA T I ONS= ZERO 
CM NOTRAN.O, 10 
BP RDTRAN 
B CMPF 
EH3RS *-3 



03418 14 00432 00000 
03430 46 03546 01100 
03442 49 03618 00000 
03450 

READ FORMATS FOR TRANSFORMATION CONSTANTS, ONE CARD. 



03270* 
03280* 
03290* 

03300RDCON TF RF1+6, FORMAT 



03310 

03320 

03330 

03340 

03350 

O336O* 
03370* 
03380* 
03390 

03400 



03462 12 04682 00005 
03474 16 04699 00078 

03i»86 16 047 H ©OOT3 

03498 16 04759 OO60f> 
03510 17 04652 000T3 

REAB^— FhOA-T A NO- S TORE- TRANSFORMATfON- CONS TAHTS-^ 

TF WCTR,MOCON — ----- 

BT RFS, CONST 



SM RFI+6,5,10 

TFM RF2+1 1,78,10 

TFM RF3+1 1,13,10 

TFM RF5+1 1,6, 10 

BTM RF, 13,10 



03^*6* 
3420* 
03430* 

03440RDTRAN TF 



03522 26 00894 00435 
03534 27 00900 005 11 



03450 
03460 
03470 
03480 
03490 
03500* 



READ TRANSFORMATION INDEXES, 
RF 1+6, INDEX 
SM RF 1+6,7, 10 
TFM RF2+1 T ,80, 10 
TFM RF3+1 1 , 10, 10 
TFM RF5+1 1,8,10 
BT RF , NOTRAH 



03546 26 04682 00506 
03558- 1 2 04682 00007 
03570 16 04699 OOO80 
03582 16 0471 1 OOOTO 
03594- \(r 04759 8 
03606 27 04652 00432 



120. 



03510* 

03520*-- ARE Ft ft AHQ fWT READ. 
03530* 

03540CMPF BD *+20,C0N4 
03550 
03560 
03570 
03580 
0359O - 



B ROFORM 

OORG *-3 

TFM RET7+6,RDF0RM 
B FF 
~D0R(T~*"=3 



READ FORMATS FOR DATA, 



03600* 
03610* 
3620* 

03630RDF0RM TF RF1+6, FORMAT 
03640 
03650 
03660 
03670 
03680 



SM RFI+6,5,10 

TFM RF2+1 1 ,78, 10 

TFM RF3+1 1 , 1 3, 10 

TFM RF5+11,6,10 

BT RF.NFORM 



03690* 
03700* ~ " 
03710* 
03720V/GTS 



03730 

03740* 
03750* 
3760* 
03770 

03780 

03790 

03800 

03810 

03820* 
03830* 
03840* 



-SET- UP AD D R E SS O F W E IGH TS, 
TF WT.DATA1 
A WT-1.K 



03618 43 03638 00444 
03630 49 03658 00000 



3638 

03638 16 04646 53658 
03650 49 04544 00000 



03658 



3658 2 6 4 68 2 05 1 
03670 12 04682 00005 
036B2 tfrP4699 00 U 7 & 
36 9 4 1 6 04 7 M OOU T j 



03706 16 04759 00006 
03718 27 04652 00417 



03730 26 00556 00516 
03742 21 00555 00601 



SET UP NUMBER OF CARD COLUMNS TO READ 
CM NC0L,0,10 
BE FLT 

TFM CMC0L+1 1, ALPHA 
A CMCOL+1 1 ,NCOL 
A CMCOL+1 1.NC0L 



03754 T4 00437 00000 
03766r ij 6 tX38l4- 0T20tr 
03778 16 01075 01983 
03790 21 01075 00437 
038 2 2 1 10 75 043 7 



FLOAT NUMBER OF 06SERVAT f ONS . 



(21. 



03850FLT 


BT 


C0NV.N0BS 


03860* 
03870* 

03880* CLEAR 1D.SUM1 ,SIGMA, 
03890* 

03900CLR TF CLR2+6.ID 


03910 


TF 


CNTR.K 


03920CLR2 


TFM 


99999,0,10 


03930 


AM 


CLR2+6.2.10 


03940 


SM 


CNTR,1 , 10 


03950 


BP 


CLR2 


03960 


TF 


COUNT, MSZ 


03970 


A 


COUNT, K 


03980 


A 


COUNT, K 


03990 


TF 


CLR3+23.SUM1 



27- 



U ;OZO ztT U jO ? D UUH J? I 

03838 26 00589 00601 
03850 16 99999 0000*0 
-03862- - H 38 56 00002 
0387^ 12 0O5&9 00001 
03886 46 03850 01100 
038 9 26 00506 00614 



03910 2 1 00586 00601 
03922 21 00586 00601 
- 03 9 34 2 6 03 9 6 9 00541 



04000CLR3 TFLS 99999, ZERO 



04010 
04020 
04030 



-m- 



HSt.R- 3+23,10,10 



03946 
03958 
03965 
3970 



16 05023 
49 04992 
00005 
00005 



03969 
OOOOO 
59999 
00861 



SM COUNT, 1,10 
BP CLR3 



03976 11 03969 OOOTO 



03988 
04000 



12 00586 
46 03946 



00001 
01100 



04040* 
04050* 
04060* 
04070 

04080 



IS IT ADV. 
BD *+20,C0N3 

B PRH 



04012 43 04032 00443 
04024 4 9 04104 OOOOO 



04090 

04100 

041 10 

04120CLR1 

04130 

04140 



DORG *-3 

TF CLR1+6.IND 

TF CNTR.K 

TDM 99999 

AM CLRI+6,1,10 

SM CNTR,1,10 



04032 

04032 26 04062 00486 
04044 2 6 00589 00601 



04056 15 99999 OOOOO 
04068 11 04062 00001 

a|, a Q r\ 
~ U*HJ OU 



o 



122. 



04150 

041 60 PRH 

04170 

04180 

04190 

04200 

04210 



BP CLR1 
RCTY 

BT WRNUM,DATE-4 
SPTY 



BT WRNUM, DATE-2 
SPTY 

BT WRNUM, DATE 



40 92 4 6 040 5 6 ttOO 



04104 34 
04116 27 
04128 34 
04140 27 
04152 34 
04 1 64 27 



OOOOO 00 tO 2 
04952 00403 
OOOOO 00 10 1 
04552 00405 
OOOOO 00101 
04 9 52 0407 



04220 RCTY 
04230 WATY PRBL 

04240 BT WRNUM, PR OB 



04 T 76" 34 
04 T 88- 35 
042 27 
042tT 34 
04224 27 



OOOOO 00102 
OZtkS 00100 
04952 040 9 
OOOOO 00108 
04 9 52 00601 



04250 
04260 
04270 
04280 
04290 
04300 



TBTY 

BT WRNUM, K 
WATY VRBL 



4236 3 9 2 1 5 7 00 1 00 



TBTY 

TF OUT, NOBS 
CF 0UT-4 



04248 34 
04260 26 
042 7 2 33 
04284 38" 
04296 39" 
04308 34 
04320^36 
0433T 49 

04340 

0434© 43 
04352 4f 
0436 



OOOOO 00108 
00830 00414 
00826 O O O OO 



04310 

04320 

04330 

04340RET2 

04350 

04360 



WNTY 0UT-4 
WATY OBSR 
RCTY 



RNCD 
B 
DORG *-3 



00826 00 100 
02167 00100 
O OO OO 00 1 02 

ooooo 00500 

OOOOO OOOOO 



04370L0ADR 

04380 

04390 

04400 

04410 



BD *+20,C0N4 
B LDR 1 
DORG *-3 



04360 00444 
04 38O OOOOO 



TFM RET7+6,*+20 
B FF 



0436O 16 
04372 



04646 04380 

I. r I. I. g\*\ /v/v j% 

OOOOO 



o 



© 



nLii ?n 

UHH zu 


n or ■ " 


5 
















043b0 








Tr 

1 r 


+ 30 , r U!\! 1A 1 














04380 


2o 


044 10 


00 50 1 






v.- _i_ 1 R c in 
















UH39i 


1 1 


n J, J, in 
1)44 IU 


UUUUp 


rt 1,1, rnD M 


RNLD 


99999 
















r, 1. J.rtl. 
U*+*+v*T 


JO 


QUQQQ 


UUpUU 


OLL. C 1 


Tr 
1 r 


y» , 1 p nrj.A 
' % + I O , l\ ML+o 














nUU 1 A 




UHH pH 


nkU in 


04452 


SF 


















zu 


3 9 




nnnnn 




CM 










OO0OO 




04440 


14 


00440 


04454 


BE 


CLR 


















46 


n 3896 


1 200 


04460 


TF 


RF 1+6, FORMAT 
















04464 


96 


04682 


nnc;n 1 

UUPU 1 




SM 


Kr ItD, 1 , 1 U 










04480 






04476 


12 


04682 


_ 

oooo 1 


TFM 


r p 94- 1 1 Rn in 

Kr Z+ 1 I , OU , 1 U 














nLii SR 


1 £. 


A], /Icq 


UUuoU 


04490 


TFM 


p 3+1 1 L.n in 










04500 






nil cAft . 
U'+pUU 


1 O 


n/i "7 1 1 


UUUHU 


TFM 


rf*;+i 1 in 










04510 






U*tp t £ 


rO 


0*t/59 


OOvOZ 


BT 


RF.NELIM 










04520 






nJ< c oft 


2/ 


04552 


Ou l + t tu 


B 


CLR 














UHp po 


t+y 


3o 2o 


00000 


04530 


DOR 3 


*— ^ 


O t rp t + t t 








04540* 


* * 












04550* SUBROUTI 


Kir rriD RCAniur, p 1 nj Akin POUT 










04560* 














04570FF 


TF 


RF1+£> FORMAT 
r\ r iTU|r ui\ 1 1 
















niiciiii 


/o 


nil 


nn cn 1 
UUpU 1 


04580 


SH 


Kr itO| 5 , ru 














04556 


12 


04682 


00005 


04590 


TFM 


RF2+1 1 ,78, 10 














04568 


16 


04699 


00078 


04600 


TFM 


RF 3+11, 13, 10 














04580 


16 


0471 1 


O0OT3 


04 6 tO 


TFH 


RF5+11.6, 10 














04592 


16 


0475? 


00006 


04620 


BTM 


PF.2,10 














04604 


17 


04652 


00002 


04630* 












04640* 


READ, 


FLOAT AND STORE FIN AND FOUT 










04650 


TFM 


W€TR,2,10 
















01+616 


16 


00891+ 


00002 


04660 


BTM 


RFS.FIN 
















0U628 


17 


00900 


00710 



124- 



04670RET7 


F, 


,' 19 ;■ 9 


046c!0 




*-3 


4 690* 
04700* 
04710* 
04720* - 
04730 


SUE'.ROUTl NE TO READ AND F 
AND IDD, INDEXES OF DE 

* * Vr * 

OS 3 


04740RF 


TF 


CNTR , RF-1 


04750 


TF 


RF4+6.RF1+6 


04760RF1 


RNCD 


99999 


04770RF2 


AM 


RF 1+6, 99999 


04780RF3 


S;, 


CNTR, 99999 


04790 


BP 


RF 1 


04800 


TF 


CNTR, RF-1 


04810RF4 


SF 


99999 


04820RF5 


AM 


RF4+6, 99999 


04830 


SM 


CNTR, 1 , 10 


04840 


BP 


RF4 


04850 


BB 




04860 


D0RG 


*_q 


04870* 
04880* 
04890* 
04900 


■k i; * 

SUBROUTINE TO FLOAT N06S 

L)S 5 


04910C0NV 


TFM 


EXP3.5, 10 


04920 


TFM 


TESTD+U,COHV-5 


04930 


TFM 


MVWRD+6.03SER-5 


04 91+0 


TF 


0B SER, ZEROS 


04950TEST0 


BO 


SETM,91>^y 


04960 


AM 


TESTD+11 , 1 , 10 



04640 4-9 9^9^ 0000 

04648 

I , TRANSFORMATION INDEXES, 



04650 00003 

04652 26 00589 04651 

04664 26-04-7^2- 04^682^ 

04676 36 99599 0O50O 
04688 It 04682 99999 

0470 1- 2 05 8 9 999 9 9 

04712 1+6 04676 01 100 
04724 26 00589 04651 

04736-- 32 93999 00000 

047!+8 11 047fr2 99999 
04760 12 00589 00001 

-04 7 72 46 04736 01 100 

0^+781+ 1+2 00000 00000 
04786 



04 7 90 0000 5 

04792 16 0491+7 00005 



04804 16 04851 64787 
04816 16 04926 50476 
04828 26 00481 00871 



04840 43 04896 99999 
01+852 11 04851 00001 



125- 



04970 


SM 


EXP3, 1 , 10 




04 9"0 






04864 12 04947 00001 


SM 


i IVV/RD+6, 1,10 


04990 






04876 12 04926 00001 


E! 


TESTD 




05000 






04888 49 04840 00000 


DORG 


*-3 










~ 04896 ^ 


05010SETM 


TF 


*+l8,TESTD+11 








04896 26 04914 04851 


05020 


SF 












04908 32 99999 00000 


050 30MVWRD 


TF 


99999, C0NV-1 








"04320 26 99999 04791 


05040 


TF 


OBSER , EXP3 








04932 26 00481 04947 


05050 


BB 






50 60 






04944 42 00000 00000 


DORG 


*-9_ 










04946 


050/OEXP3 


DS 


2 










04947 00002 


05080 


DS 


4 








04 95T 00004 


05090 WRNUM 


TF 


OUT, NO 










0495226 00830 04951 


05100N0 


DS 


.WRNUM-1 










04951 00000 


051 10 


CF 


0UT-1 










04964 33 00829 00000 


05120 


V/NTY 


OUT-1 










0497 6"3# U08Z9 - OOTOC 


051 30 


BB 












04988 42 00000 00000 


05140 


DORG 


*_ 9 










04990 


05145 


DAC 


1,0 










049 ; n 00001 


05150 


DEND 


START 1 










02180 


LOAD SUBROUT 


INES 












04992 16 05426 05884 








05004 49 05 116 



END OF 
1 3400 
00417 
00432 ■* 
00442 
00447 
00452 
00457 
00496 
00521 
00546 
00571 
00592 
00607 
06630 
00680 
00730 
00851 
00894 
01064 
01324 
01528 
01890 
01958 
01981 
02180 * 
02900- 
03450 
03814 
04104 
04544 
04700 
-04896 



PASSI I 

REF 
NFORtt- 
NOTRAN 
C0N2 
CON 7 
C0N12 
CON 17 

too 

DATA 2 
S I Gi 'iA 
ADIJ 
CTR 
P 

TEMPI 

SOR 

HIGH 

FHIGH 

WCTR 

CMC0L 

04 

:;ove 

STEP 1 

I NPUT 

MCNT 
START 1 
-CAB0-2-- 

RDC0N 

FLT 

PRH 

FF 

RF3 

-sew — 



00402 

00420 

00435 

00443 

00448 

00453 

00458 

0O5O1 

00526 

00551 

00576 

00595 

00610 

"00640 

00690 

00740 

00861 

00900 

01244 

01348 

01636 

01910 

01968 

01983 

02472 

-03254- 

03546 

03826 

04320 

04640 

04736 



CONT 
t NVAR 
NOCON 
C0N3 
C0N8 
C0N13 
C0N18 
^FORMAT 
B 
R 

ADR I J 
I 



- TEMP2 
DF 

VP 

ZERO 

RFS 

RET 

05 

BRNCH 
0VR2 
CONN 
ALPHA 
CADD 
— fthNO- 
"RDTRAN 
CLR 
RET2 
RET7 
RF4 

- HVWRD - 



00407 
0042* 
00437 
00444 
00449 
00454 
00481 
0O5O6 
00531 
00556 
00581 
00598 
00614 
00650 
00700 
00750 
00871 
00936 
01256 
01368- 
01680 
01912 
01973 
02145 
02588 



DATE 

NUV AK 

NCOL 
C0N4 
C0N9 
CON 14 

OBSER 

+wotx- 

SE 
WT 

SIGN3 
J 

MSZ 
— AO 
F 

VE 

ZEROS 

FRMT 

D1 

--HtN 

DIGIT 
ZEROX 
EXPNT 
PRBL 
CADD 1 



00409 
42G 



00440 

00445 

00450 

00455 

00486 

00511 - 

00536 

00561 

00586 

00601 

00617 



00710 
00830 
00881 
00980 
01280 



01704 
01939 
01974 
02157 
02660 



PROB 

-N — 

NELIM 
CONS 
CON10 
CONtS 
I ND 



00414 
00429 
00441 
00446 
00451 
00456 
00491 



T 

ADKK 

COUNT 

K 

IVE 



00 660 EY- 



00541 
00566 
00589 
00604 
00620 



FIN 
OUT 
ONE 
REAON 
D2 



013 00 — e*€- 



00720 

00841 

00891 

01O16 
01300 



EX 

SPEC 
SIGN2 
VRBL 
INC 



01800 
01944 
01978 
02167 
02768 



03618 
03850 
04340 
04652 
04748 
04947 - 



CMPF 
CLR 2 
LOADR 
RF 
RF5 
EX P 3 



03658 
03946 
04380 
04676 
04792 
04952 



*RDFORM 
CLR-3— 
LDR1 
RFt 
CONV 
WRNUM 



03730 
04056 
04404 
04688 
04840 
04951 



NOBS 
N DC P 
C0N1 
C0N6 
COM 1 

eoNt6 

ID 



CO N ST 516 DATA 1 



SUM1 
ADRNN 
CNTR 
L 

I VP 



00670 RS^R- 



FOUT 

FP0O1 

SUMWT 

LOOP! 

PER 



01516 SETFL 



TRSMT 
A 00ft 
PNUM 
OBSR 
INC2 



-033-te — R+ee 03 382 — enpt 033 9 4 — gmpr- 



WGTS 
CLR t 
RNC 
RF2 
TESTD 
-NO 



c 







127- 

05160" PROGRAM 80-2, READ, FLOAT AND STORE DATA, FORM TRANSFORMED 
05170- DATA, FORM SUMS AND SUMS OF PRODUCTS, OCT. 4 , 1963. 



05190 


DORG 


1+02 


00402 




05200CONT 


DSS 


80 


00402 


00080 


05210DATE 


DS 


6.C0NT+5 








. ._. 




00407 


00006 


05220PR0B 


DS 


2,CONT+7 


00409 


00002 


05230NOBS 


DS 


5.CQNT+12 


00414 


00005 


05240NF0RM 


DS 


3.CONT+15 


00417 


00003 


052501 NVAR 


DS 


3.CONT+18 


00420 


00003 


05260N0VAR 


DS 


3.C0NT+21 


00423 


00003 


05270N 


DS 


3.C0NT+24 


00426 


00003 


05280NDEP 


DS 


3.C0NT+27 


00429 


0000 3 


05290N0TRAN 


DS 


3,CONT+30 


00432 


00003 


05300NOCON 


DS 


3.CONT+33 










— - ■ - • - 


00435 


00003 


05310NCOL 


DS 


2.CONT+35 


00437 


00002 


05320NELIM 


DS 


3,C0NT+38 


00440 


00003 


05330CON1 


DS 


1 .CONT+39 












00441 


00001 


05340CON2 


DS 


1 ,C0NT+40 


00442 


00001 


05350CON3 


DS 


1 .CONT+41 


00443 


00001 


05360C0N4 


DS 


1.C0NT+42 












00444 


00001 


05370CON5 


DS 


1 ,C0NT+43 


00445 


00001 


05380C0N6 


DS 


1 .CONT+44 


00446 


00001 


05390CON7 


DS 


1.C0NT+45 












00447 
00448 


00001 


05^00 CON 8 


DS 


1 .C0NT+46 


00001 


05410CON9 


DS 


1.C0NT+47 


00449 


00001 


05420CON10 


DS 


1,C0NT+48 


00450 


00001 


05430C0N11 


DS 


1,C0NT+49 


00451 


00001 


05440C0N12 


DS 


1 ,C0NT+50 


00452 


00001 



05450CON13 


DS 


1 .CONT+51 












00453 


00001 


0546OC0N14 


DS 


1 .C0NT+52 












00454 


00001 


05470CON15 


DS 


1,C0NT+53 












00455 


00001 


05480CON16 


DS 


1,C0NT+54_ 












00456 


0000 1 


05490CON17 


DS 


1 ,CONT+55 












00457 


0000 1 


05500CON18 


DS 


1 .CONT+56 












00458 


0000 1 


055100BSER 


DS 


10,CONT+79 












00481 


000 10 


05520 1 ND 


DS 


5 












00486 


00005 


05530 1 D 


DS 


5 












00491 


00005 


05540 1 DD 


DS 


2. 












00496 


00005 


05550F0RMAT 


DS 


c 
j 












00 50 1 


00005 


O556O 1 NDEX 


DS 


j 












00506 


00005 


O557OCONST 


DS 


5 












00511 


00005 


05580DATA 1 


DS 














0051 6 


00005 


05590 DATA2 


OS 


c 
J 












00521 


00005 


O56OOB 


DS 


5 


00526 










00005 


O56IOSE 


DS 


5 












00531 


00005 


05620T 


DS 


5 










00536 


00005 


5 6 30SUM1 


DS 


5 












00541 


00005 


0564OSIGHA 


DS 


5 












00546 


00005 


05650R 


DS 


5 












00551 


00005 


O566OWT 


DS 


5 








00556 


00005 


05670ADKK 


DS 


5 








00561 


00005 


05680ADRNN 


DS 


5 










00566 


00005 


05690ADIJ 


DS 


5 








00571 


00005 


05700ADRI J 


DS 


5 












00576 


00005 


05710SIGN3 


DS 


5 












00581 


00005 



129. 



05720C0UNT 


DS 




05730CNTR 


DS 


3 
j 


05740CTR 


DS 


2 
P 


n C7cn i 


DS 


2 
J 




DS 


P 


Up/ /UN 




5 


Up/ ou l- 


DS 




n C7QA P 

Up/yU" 


nc 




UpoUUv 


nc 
Uj 






DS 


1. 

H 


05020 1 vt 


n c 


3 


U p 30 1 Vr 


nc 
Uo 


3 


U pOHU f Llir 1 


nc 


in 
1 u 


n cficnTFM p 
Upopu 1 Liir ^ 


DS 


1 n 




DS 


in 


U / U L 1 


DS 


m 


ncftftnRSPR 


DS 


10 


o^RqnscR 


DS 


10 




DS 


10 


U); fur 


DS 


10 


05920F 1 N 


DS 


10 


05930FOUT 


DS 


10 


05940HIGH 


DS 


10 


05950VP 


DS 


10 


05960VE 


DS 


10 


05970 OUT 


DS 


80 


05980 


DC 


1 ,® 



00586 00005 

00589 00003 
00592 0000 3 
00595 00003 
00598 0000 3 
00601 00003 
00604 00003 
60 7 0000 3 
00610 00003 
00614 00004 
00617 0000 3 
00620 0000 3 
00630 00010 
00640 00010 
00650 00010 
00660 00010 
00670 00010 
00680 00010 
00690 00010 
00700 00010 
00710 00010 
00720 00010 
00730 00010 
00740 00010 
00730 00010 

00830 00080 

00831 00001 



o 



o 



05990 


DC 


8,10000000 










00839 00008 


06000FP001 


DC 


2,-2 










00841 00002 


06010 


DC 


8, 10000000 








00849 00008 


06020FHIGH 


DC 


2,50 


OO85I 00002 






06030 


DC 


8,0 










00859 00008 


60407. ER0 


DC 


2,-99 










00861 00002 


06050ZEROS 


DC 


10,0 










00871 00010 


060 60 


DC 


8, 10000000 








00879 00008 


06O7O0NE 


DC 


2, 1 








00881 00002 


06Q75SUMWT 


DS 


10 








00891 00010 


06080* 








06090- 


SUBROUTINE TO READ, FLOAT, AND 


STORE NUMBERS UNDER 


06100- 


FORMAT CONTROL. NEEDS NUMBER 


OF WORDS AND IN) T 1 AL - 


061 10- 


ADDRESS WHERE STORED. 




06120* 




i; -A- * * 




06130WCTR 


DS 


3 










00894 00003 


06140 


DS 


5 










00899 00005 


06150RFS 


TF 


TRSMT+23.RFS-1 , .SET UP STORE ADDRESS. 


06160 






00900 26 01823 00899 


TFM 


READN-2 ,READN 








00912 16 00978 00980 


06170 


TF 


FRMT+1 1 .FORMAT 










00924 26 00947 00501 


06180FRMT 


TF 


SPEC, 99999 










00936 26 01939 99999 


06190 


SF 


SPEC-1 










00948 32 01938 00000 


06200 


SF 


SPEC-3 




06210 






00960 32 01936 00000 


B 


99999, , ,READN OR L00P1 










00972 49 99999 00000 


06220 


DORG 


*_ 3 










00980 


06230READN 


RACD 


ALPHA 










00980 37 OI983 00500 


06240 


TFM 


READN-2, L00P1 










00992 16 00978 51016 


06250 


TFM 


ADDR , ALPHA-2 








01004 16 01944 01981 


06260L00P1 


A 


ADDR.SPEC-2 










01016 21 01944 01937 



© 



06270 


A 












06280 


yp 


1 MP! IT 7 fr nc: 


01028 


21 


01944 


01937 


06290 


jf 


IMPIIT — Q 7FD nC C 


01040 


26 


01958 


00871 


6 300 CM COL 


CM 




01052 


26 


01949 


00866 


06310 


BNL 


R FAnw 


01064 


14 


01944 


02137 


06312 


CM 


^PFT-ii n in 


01076 


46 


00980 


01300 


06314 


BE 


c;tfp 1 


01088 


14 


01935 


00000 


n Aaon 


THM 
1 Urx 


c 1 rui n 


01100 


46 


01890 


01200 


n A a an 


1 r 


U |+o,AUL)K 


01112 


15 


01974 


00000 


n AaLn 


1 r 


rnj.11 n 1 1 £ 
U2+ 1 1 , U 1 +0 


01124 


26 


01262 


01944 


Aacn 


TC 

1 r 


rCrv + O, U l+O 


01136 


26 


01291 


01262 


O636O 


yp 


nil -1. A n 1 j. A 

UH + O , u l + D 


01148 


26 


01306 


01262 


O6370 


Tp 


dctj.£ ni.uA 


01160 


26 


01330 


01262 


O638O 


SM 


rft.uA 1 in 


01172 


26 


01250 


01262 


n A a on 


TFM 


n94-A 1 MPI IT 


01184 


12 


01250 


00001 


06400 


TFM 


n C-i-A 1 MPI IT 


01196 


16 


01286 


51958 


n Akin 




CFTd _i_A 1 MDI ITj 1 
1 lr L+O, 1 NrUI+l 


01208 


16 


01354 


51958 


06420 




^FTFI +A ^PFT — 9 


01220 


16 


01522 


51959 


06k3fiRET 


SF 


uqqqq AnnR— 1 


01232 


22 


01522 


01937 


06440D1 


CM 


qqqqq 70 in 


01244 


32 


99999 


00000 


06450 


BL 


PER 


01256 


14 


99999 


ooo7o 


06460D2 


TD 


99999,99999,, INPUT, ADDR 


01268 


47 


01300 


01300 


06470 


B 


CHG+20 


01280 


25 


99999 


99999 


06480 


DORG 


*-3 


01292 


49 


01408 


00000 


06490PER 


CM 


99999.0 3, 10, A DDR 


01300 








06500 


BE 


CHG 


01300 


14 


99999 


00053 


06510D4 


CM 


99999,20,10 


01312 


46 


01388 


01200 








01324 


14 


99999 


00020 



06520 


BE 


M 1 N 


6530 05 


TDM 


qqqqq q i WPUT 


06540 




CHG+20 


O655O 


DORG 


*— a 

j 


Ac AflM I M 


SF 


C 1 r.Mi 
j 1 uriji 


n Ac7n 


B 


nrn . 1, Q 

rtK+HO 


n Acfln 


DORG 


*-3 


n Ac on rur 

U Op y\J L rl u 


A M 
AN 


c c tfi j-A 1 in 
bt I r u+o, 1,10 


n AAnn 
U OOUU 


p 

D 


"'+32 


06610 


DORG 


""-3 _ 


06620 


SM 


D2+6, 1 , 10 


6630 


SM 


D5+6, 1 , 10 


n AAkn 

U DD4U 


SM 


U I +0, Z , 1 U 


■ n AAcn 
u oopu 


C M 


D2+1 1 ,2,10 


n AAAn 


SM 


rtR+o, 2,10 


Uoo/U 


SM 


2,10 




SM 


R F Tj. A t in 


06690 


c 


n9+A ^FTFI J-A 


O67OO 


BNL 


RET 


uo/ lUot, I r l_ 


c c 
or 


99999, , , ( 1 NPUT+1 )-(SPEC-2) 


067 20 MOVE 


CM 


INPUT, 0,10 


06730 


BE 


ZER0X 


06740 


TF 


C0MN , ZEROS 


06750 


CF 


C0MM-9 


O676O 


TFM 


EXPNT, | NPUT+1 


06770 


S 


EXPNT, SETFL+6 


067 80 


TF 


ERNCH+11 , SETFL+6 



01336 46 01368 01200 
01348 15 99999 00000 
01360 49 01408 00000 
01368 

01368 32 01974 00000 
01380 49 01348 00000 
01388 

01388 11 01522 00051 
01400 49 01432 00000 
01408 

01408 12 01286 00001 
01420 12 01354 00051 
01432 12 01262 00052 
01444 12 01291 00052 
01456 12 01306 00052 
01468 12 01330 00052 
01480 12 01250 00052 
Oi'492 24 01286 01522 
01504 4 6 01244 01300 
01516 32 99999 00000 
01528 14 01958 00050 
01540 46 01912 01200 
01552 26 01968 00871 
01564 33 01959 00000 
01576 16 01973 01959 
01588 22 01973 01522 
01600 26 01647 01522 



133. 



06790 


SF 


EXPNT-1 
















01612 


32 


01 972 


00000 


OooOO 


S 


rv nM t c nr r 

tXr N 1 , brtt 
















1 bZH 


22 


01 973 


01 939 


U Do 1 U t)K IN v. n 


b U 


LM Li 1 1 , yyyyy 














1 ojjb 


h3 


A 1 £Qa 
1 DOU 


99999 


U boZU 


c M 


CVDMT 1 in 

t a rN 1 , 1 , I U 
















ft 1 t/iQ 
1 o4o 


1 2 


A 1 ("I"? ^ 

01 973 


0000 1 


Odd 30 


AM 


BRNCH+1 1 , 1 , 10 
















A 1 ££A 
U 1 DDL) 


1 1 


A 1 £/t "7 

U 1 OH/ 


— 

0000 1 




B 


p o m r ii 
















1 672 


49 


1 636 


00000 


068 50 


D0RG 


""-3 


01680 








OoboOD 1 G 1 1 


IF 


*+30,P.RNCH+1 1 
















01680 


26 


01 7 10 


01647 


06870 


AM 


"+18,9, 10 










■ 






01 692 


1 1 


01710 


00009 


06880EX 


TF 


99999, EXPNT 
















01/0^ 


2o 


99999 


01 973 


06890 


TF 


" + lo,t>KNLH+l 1 














01716 


2b 


01 734 


1 647 


06900 


SF 


99999 
















01728 


32 


99999 


00000 


06910 


TF 


To c M T i oO C"V_i_£. 

1 KoM 1 +Zo , tX+b 
















U 1 /4U 


26 


01828 


A 1 1 1 A 
01/10 


06920 


pv- 

LJ .11 
















01752 


44 


01800 


1 974 


06930 


Tr 

I r 


















1764 


26 


01794 



1 82o 


06940 


CM 

on 


















A t"7"7 £ 

177b 


12 


01794 


A AAA" O 

00002 


06950 


or 


99999 


1 / OO 














32 


99999 


A A A A A 

00000 


A C O Cf\ TDCMT 

Uo9oO 1 Kin 1 


1 r Lb 


99999, 9999y 
















- 

01800 


16 


06741 


1 023 








niQii 
U 1 1 L 




06690 


A AAA A 






. 


u I o i y 


00005 










A 1 Roii 


00005 


99999 


U Oy f\J 


AM 


















01830 


11 


01823 


000 To 


06980 


SM 


VfCTR, 1 , 10 














018^2 


12 00894 


00061 


06990 


BNF" ' 


0VR2 
















01854 


47 


01910 


01 100 


07000 


Sf 1 


SPEC-It, 1 , 10 
















01866 


12 


01935 


00061 


07010 


BP 


L00P1 
















01878 


46 01016 


01100 


070 20 STEP! 


m 


FRMT+11 ,6, TO 














01890 


11 


00947 


00066 


07030 


pi 


FRMT 
















01902 


49 00936 


00000 



07040 


D0RG 


*~3 














01910 






070500VR 2 


BB 










07060 






01910 


42 00000 


00000 


D0RG 


*~3 














01912 






A "7 A "7 A 7 CD /~iV 

U /0 /OZ tKUX 


TFM 


TKSMT+2o 1 ZER0 








070o0 




01912 


16 OI828 


00 861 


B 


TRSMT 














01924 


49 01800 


00000 


07090 


D0RG 


"-3 














01932 






07 100SPEC 


DS 


8 














01939 


00008 




071 10ADDR 


DS 


5 














01944 


00005 




071201 NPUT 


DS 


14 














01958 


00014 




O7I3OCOMN 


DS _ 


10 














01968 


00010 " 




07140EXPNT 


DS 


5 














01973 


00005 




07150SIGN2 


DS 


1 














01974 


00001 




071 6OPNU1 1 


DS 


4 














01978 


00004 




07170MCNT 


DS 


3 














01981 


00003 




07073ALPHA 


DAS 


80 














01983 


00080 




07175 


DAC 


1 ,^ ____ 














02143 


00001 




07180START2 


TDM 


TRIG1 ,0 , ,SET TRIGGER 1 


FOR FIRST PASS. 










02144 


15 2 301 


00000 


07185 


TFLS 


SUMWT, ZERO 














02156 


16 06741 


02179 








02168 


49 06690 


00000 








02175 


00005 


60891 


07187 






02180 


00005 


00861 


TF 


SUMS 2+28, WT 






07189 






02186 


26 05894 


AA C C C 


TF 


SUMS 25+28, WT 




07190* 






02198 


2 6 60 1 6 


00556 


07200- FORf 


SUMS 


AND SUMS OF PRODUCTS. 








07210- 












07220L00P5 


TF 


COUNT, NOBS 














02210 


26 00586 


00414 


07230- 










07240* READ~T 


FU3AT, AND STORE OBSERVATION. 






07250* 












O726OL00P4 


TF 


V/CTR, I NVAR 














02222 


26 00894 


00420 



v J 



a 



135 



07270 

07280* 
07290* 
07300* 
07310 

07320 

07330 

07340 

07350 

07360 

07370TRIG1 

07380* 
07390* 
07400* 
07410CMN0 

07420 

074 30* 
07440* 
07450* 
07460 

07470* 
07480* 
07490* 
07500 

07510 

07520 

07530 

07540 

07550 

07560* 
07570* 
07580* 
07590PASS 

7 600 



02234 27 00900 00516 



00100 
00420 
00516 
02302 
00000 



DT RFS , DATA 1 

IF SWITCH 1 ON, PRINT INPUT DATA. 
6NC1 CMNO 
TF U OR DS, INVAR ~ 
TF PR I NT 1+28 , DATA 1 
TFM RET1+6,*+20 
B PRINT 
DORG *-4 
DS 1 

IS NOTRAN = ZERO. 
CM NOTRAN, 0,10 
BE _PASS 

TRANSFORM DATA 
BTM TFS.0,10 

02326 17 03214 00000 

IF SWITCH 2 ON, PRINT TRANSFORMED DATA. 
BNC2 PASS 



02246 47 02302 
02258 26 02914 
02270 26 02956 
02282 16 03024 
02294 49 02916 
02301 

02301 00001 

02302 14 00432 
02314 46 02394 



00060 
01200 



TF WORDS , N 

TF PRINT1+28,DATA1 

TFM RET 1+6,*+ 20 

B PRINT 

DORG *-3 

IS IT ONE PASS INPUT. 



02338 47 02394 
02350 26 02914 
02362 26 02956 
02374 16 03024 
02386 49 02916 
02394 



TCT " - *+207C0N5,- BRANCH fF TWO PASS. 

02394 43 02414 

B FORMS 

02406 49 02426 



00200 
00426 
00516 
62394 
00000 



00445 
00000 



07610 


DORG 


*-3 


07620* 
07630* 
7 640* 
07650 


IS IT 

CD 


FIRST PASS 
SUBM , TR 1 G 1 


O766O* 
07670* 
07680* 
07690FORMS 


FORM 
BTM 


SUMS OF DATA. 
SUMS ,0,10 


07700* 
07710* 
07720* 
07730 


IS IT 

BD 


ONE PASS INPUT 
*+20,CON5 


07740 


B 


FOR PRO 


07750 


DORG 


*-3 


07760 


SM 


COUNT, 1 , 10 


07770 


BP 


L00P4 


07771 


BD 


*+2O,C0N6 


07772 


B 


CPS 


07773 


DORG 


*-3 


0777A 


TFLS 


OBSER.SUMWT 


07780* 
67866* ARE 
07810* 
07820CPS 


SUMS 
BD 


PUNCHED. 
*+20,C0N9 


07830 


B 


FORMM 


07840 


DORG 


"-3 


07850* 

07860* PUNCH SUMS 
07870* 

07880 TF PNUM,N 


07890 


BT 


PNCH , SUM 1 



136. 

02414 



02414 43 02608 02J01_ 



02426 17 05780 00060 



02438 


43 02458 


00445 


Q245Q 


49. 02722 


00000 


02458 






02458 


12 00586 


00061 


02470 


46 02222 


01100 


02482 


43 02502 


00446 


02494 


49 02532 


00000 


02502 






02502 16 06741 
02514 49 06690 
02521 00005 
02526 00005 


02525 
00000 
60481 
60891 


02532 43 02552 


00449 


02544 


49 02576 


00000 


02552 






02552 


26 01978 


00426 


02564 


27 03032 


00541 



07900* 

07910- FORM HEARS AT SUM1 . 

07920- 

07930FORHM BTM MEANS,0,10 
07940* 

07950* SET TRIGGER 1 FOR SECOND PASS 



07960* 

07970 TDM TRIG 1,1 

07980 B L00P5 

07990 DORG *-3 

08000* 

08010* SUBTRACT MEANS FROM DATA 
08020* 

08030SUBM TF MCNT, N 

08040 TF SUBM1+23,DATA1 

080 50 TF SUBM1+28,SUM1 

08060SUBM1 FS 99999,99999 

08070 AM SUBM1+23, 10, 10 

80 80 AM S UB M 1 +28 , 1.0 , 1 

08090 SM MCNT, 1,10 

08100 BP SUBM1 
81 10* 

08120* """ FORM SUMS OF PRODUCTS 
08130* 

O814OF0RPR0 BTM PROD, 0,10 

08150 SM COUNT, 1,10 

08T60 BP L00P4 

08162 BD *+20,C0N6 

08164 B CMSM 

08166 DORG *-J 



02576 17 03120 00000 

02588 15 02301 00001 
02600 49 02210 00000 
2 608 

02608 26 01981 00426 

02620 26 02667 00516 

02632 26 02672 00541 

02644 16 06741 02667 
02656 49 06450 00000 
02663 00005 99999 
02668 00005 59999 

02674 11 02667 000T0 

02686 11 02672 OOOTO 

02698 12 01981 0000" 1 

02710 46 02644 01 100 

02722 17 06022 00000 
02734 12 00586 00001 
02746 46 02222 01100 
02758 43 02778 00446 
02770 49 02808 00000 
02778 



r 



138- 



08168 



TFLS 0BSER,SUMWT 



08170* 

08180* ARE SUMS PUNCHED. 
08190* 

08200CMSM BD *+20,C0N9 



08210 
08220 



B END2 
DORG *-3 



08230* 

08240* IS IT ONE PASS INPUT. 
08250* 
08260 



08270* 

08280* 
08290 

08300 

08310* 
08320* 
08330* 
08340PSP 



BD PSP , CON5 



PUNCH SUM 1 . 

TF PNUM,N 

BT PNCH,SUM1 



PUNCH SUMS OF PRODUCTS. 
TF PNUM.MSZ 

08350 BT PNCH,R 

08360END2 RNCD 
08370 B 



O838O* 
08390* 
08400* 

08410W0RDS DS 



SUBROUTINE FOR PRINTING N WORDS , 

* * * * * 

3 

08420PRINT RCTY 

8430PRINT1 BTFS FLTF I X , 99999 



08440 
08450 
08460 



V/ATY OUTPUT-20 
TBTY 

AM PR I NT 1+28, 10, 10 



02778 

02790 
02797 


16 06741 
49 06690 
00005 
00005 


02801 
00000 
00481 
uuoy 1 


02808 


43 


02828 


00449 


02820 


49 


02888 


00000 


O2828 








02828 


43 


02864 


UUT+ p 


02840 


26 


01978 


00426 


02852 


27 


03032 


00541 


02864 


26 


01978 


00614 


02876 


27 


03032 


00551 


02888 


36 


00000 


00500 


2 900 


49 


00000 


00000 



02914 

02916 

02928 
02940 
02947 
02952 

02958 

02970 

02982 



0000 3 

34 00000 

16 06741 
49 06710 
00005 
00005 

39 05731 

34 00000 

11 02956 



00102 

02951 
00000 
04864 

99999 

00100 

00108 
000T0 



V J 



139. 



08470 
08480 
08490RET1 
08500 



SM WORDS, 1,10 
BP PRINT1 

B 99999 
DORG *-3 



08510* * * * * * 

08520* PUNCH SUBROUTINE. * 

08530* * * * * * 

08540 DS 5 

08550PNCH WNCD 402 

08560 TF PNCH1+6, PNCH-1 

08570 SM PNCHl+6,9,10 

0B5B0PNCH1 V7NCD ?9999 



08590 
8600 
US6T0" 
08620 
08630 



AM PNCHI+6,80, 10 
SM PNUM,8,10 

~£TP pnchi 

BB 

DORG *-9 



08640* * * * * * — 

08650* SUBROUTINE TO FORM MEANS. 

08660* * * * * * 

08670 DS 2 

08680MEANS TF MCNT.N 



08690 
08700DIVS 

08710 
08720 

OB730 

08740 



TF 

FD 



DIVS+23.SUM1 

99999, OBSER 



AM DIVS+23,10, 10 
SM MCNT.1,10 

TJF~"D"rVS — 

BB 



02994 12 02914 00001 
03006 46 02928 01 100 
03018 49 99999 00000 
03026 

03030 00005 
03032 38 00402 00400 
03044 26 03074 03031 
03056 12 03074 00009 
03068 38 99999 00400 
03080 11 03074 OOOBO 
03092 12 01978 00008 
03104 46 03068 01 100 
03116 42 00000 00000 
03118 



03119 00002 

U3120 26 0T981 

03132 26 03167 

03144 16 06741 
03156 49 06510 
031 63 00005 
03168 00005 

03174 11 03167 

03186 12 01981 

03198 46 03144 

03210 42 00000 



00426 

00541 

53167 
00000 
99999 
60481 

000 To 

00001 

01100 

00000 



08750 


DORG 


*-9 














03212 






08760* 












08770* 


SUBROUTINE TO TRANSFORM DATA 








08780* 






* 






08790 


DS 


2 








08860TFS 






0321_i 


00002 




T F 


r'MT 1 Nvar 

vli 1 f \ IM V Hl\ 













032 14 


26 04742 


00420 


08810 


jp 


MV+23.DATA2 










MW4.7Q r\A TA 1 
I 1 V T£ O , tJH IM | 


3?9A 


26 03273 


ftftC9 1 


08820 


jp 




08830: IV 






n 39 3fi 




ftfl c. 1 A 


TF LS 
















16 06741 


03273 








U.5ZOZ 


L Q ft AA oft 

u 00 yu 


UUUUU 








ft 39 AO 


00005 


99999 


.08840. 






ft 397il. 


AAA AC 

uuuup 


QQQQQ 


A M 
AIM 


M\/_i_0 1 1 A 1 A 






O8850 






A 9 Q A 


11 032/3 


— irrzr~ 
00010 


All 


mw t i Q in in 

MV+2o, 10,10 






08860 






03292 


11 A ^ *» 1 Q 

1 1 032/0 


_ 

00010 


C (• 1 

Ml 


CNT, 1 i 10 








O8870 






A 3 3Aii 


1 O Ail Til 1 
12 UH/HZ 


AA AA 1 

UUUU I 


BP 


1 1 V 






08880 






u a \ 


L. A ft 39 Cft 


ft f Tiftft 


yp 


fk|T KJO.TRAM 
1 , NU 1 f\MIN 








8890 TRNF 






9 A ftii7li9 


ft nil 39 


TF 


*+23, 1 NDEX 




08900 






ft 3 7lifi 


9 A A 3 1 C 1 


AA CA Cm. 


TF 


SPEC,J)9999 




08910 






ft3 3C9^ 


9 A A 1 Q3Q 

zo u 1 yjy 


yyyyy 


SF 


SPEC— 1 






08920 






03364 


32 01 938 


ononn 

UvUUU 


SF 


SPEC-3 






08930 






03376 


32 01936 


00000 


SF 


SPEC-5 












O33B8 


32 0193* 


00000 


08940 


TF 


TRF+28.DATA1 






08950 






03400 


26 03464 


00516 


SM 


TRF+28,10, 10 




08960 






03412 


12 03464 


000T0 


A 


TRF+27 f SPEC-2 




08970TRF 






03^24 


21 03*63 


01 937 


TFLS 


V/ORK, 99999 










03436 


16 06741 


63*59 








03448 


49 06690 


00000 








03^55 


00005 


64752 








03460 


00005 


59922 


08980 


TF 


MVE+2"3,DATA1 




08990 


SM 




03*66 


26 04695 


00516 


MVE+23,10,10 










03478 


12 04695 


000T0 



09000 


A 


rlVL+22 , SPEC— 1+ 


03490 


21 04694 


01935 


090 10 


MM 


brtt— b,5» 10 


03502 


13 01933 


00005 


09020 


TFM 


*+35,TRCON-5 


03514 


16 03549 


04752 


09030 


A 


*+23,99 














03526 


21 03549 


00099 


090% 


TF 


••-+18,99999 


03538 


26 03556 


99999 


09050BRCH 


B 


99999 


03550 


49 99999 


00000 


09060 


DORG 




03558 






09070* 












09080* 


HERE 


ARE THE TRANSFORMATION 


SUBROUTINES 







09090* 

09100RETURN TF TRNF1+28.DATA2 



■ 






03558 


26 03622 


00521 


09110 


SM 


_ 

TRNFT+28, TO , 10 












03570 


12 03622 


_ 

00010 


09120 


A 


TRNF1+27.SPEC-2 
















Z 1 U.JOZ i 


U 1 93/ 


09130TRNF1 


TFLS 


WORK, 99999 










03594 


16 06741 


03617 








3606 


49 06690 


00000 








03613 


00005 


64752 








03618 


00005 


99999 


09140 


B 


MVE 














03624 


49 04672 


00000 


09150 


DORG 


*_ 3 














0363Z 






09160CHSIGN 


BNF 


0VR1 ,W0RK-2 














03632 


44 03664 


04750 


09170 


CF 


W0RK-2 














03644 


33 04750 


00000 


09180 


B 


MVE 














D3656 


49 04672 


00000 


09190 


DORG 


*-3 














03664 






0920Q0VR1 


SF 


W0RK-2 














03664 


32 04750 


00000 


09210 


B 


MVE 














03676 


49 04672 


00000 


09220 


DORG 


*-3 














03684 






09230SCALE 


TF 


FADD+28, CONST 














03684 


26 03748 


00511 


09240 


SM 


FADD+28,10,10 














03696 


12 03748 


000 TO 


09250 


A 


FADD+27,SPEC 


03708 












21 03747 


01939 


09260FADD 


FA 


WORK, 99999 














03720 


16 06741 


53743 



09270 

09280 

9290MAGN 

09300 

09310 

09320FMUL 



0933CL _ 

09340 

09350SUM 

O936O 

09370 



B MVE 
DORG *-3 

TF FMUL+28, CONST 
SM FMUL+28 ,10,10 
A FMUL+27.SPEC 



FM WORK, 99999 

B MVE 

DORG *-3 

TF FADD 1+28, DATA 1 

SM FADD1+28, 10, 10 

A FADD1+27,SPEC 



09380FADD1 FA WORK, 99999 

09390 B MVE 

09400 DORG *-3 

0"94TOS:UB" IT '"~F5DB+Z87DATAT" 

09420 SM FSUB+28, 10, 10 

09430 A FSUB+27,SPEC 

9440FSUB FS WORK 7 99999 

OJ450 _B__ MVE 

09460 DORG *-3 

09470MPY TF FMUL1+28,DATA1 



Q3Z1? 
03739 
03744 



49 06470 00000 
00005 64752 
00005 59999 



03750 49 04672 00000 

03758 . 

03758 26 03822 00511 
03770 12 03822 000 TO 
03182^ 21 0382J __0_1 939: 



03794 
03806 
03813 
03818 



16 06741 
49 06490 
00005 
00005 



03817 
00000 
04752 

99999 



03824 49 04672 00000 
03832 

03832 26 03896 00516 
03B44 12~03896 000 To 
03856 21 03895 01939 



03868 
03880 
"03887 
03892 

03898 

03906 

03906 

03918 

03930 

03942 
03954 
03961 
03966 



16 06741 
49 06470 
00005 
00005 



63891 
00000 
14752 



99999 
49 04672 00000 



26 03970 

12 03970 

21 03969 

16 06741 
49 06450 
00005 
00005 



005 16 

000T0 

01939 

03965 
00000 
04752 

99999 



0397 2 49 0467 2 00000 
03980 

03980 26 04044 00516 



a 



09480 


SM 


FMUL1+28, 10, 10 


03992 12 04044 OOOTO 


09490 


A 


FMUL1+27.SPEC 








04004 21 04043 01939 


09500FHUL1 


FM 


WORK, 99999 








04016 16 06741 04039 
04028 49 06490 00000 








04035 00005 54752 








04040 00005 99999 


09510 


B 


MVE 


04046 49 04672 00000 


09520 


OORG 


*-3 


04054 


09330DVUE 


TF 


FDIV+28.DATA1 








04054 26 041 18 00516 


09540 


SM 


FDIV+28, 10, 10 






04066 12 04118 OOOTO 


09550 


A 


FD! V+27.SPEC 


04078 21 04117 01939 


095WDIV 


FD~ 


WORK, 99999 


04090 16 06741 041 13 
04102 49 06510 00000 
04109 00005 04752 
04114 00005 99999 


09570 


6 


MVE 


04120 49 04672 00000 








09580 


DORG 


*-3 








04128 


09590RCPR 


TFLS 


TEMPI , ONE 









04128 16 06741 0*4151 
04140 49 06690 00000 









04147 00005 00630 
04152 00005 00881 


09600 


FD 


TEMPT ,WORK 




04158 16 06741 04181 
04170 49 06510 00000 
04177 00005 00630 









04182 00005 04752 


09610 


TFLS 


WORK, TEMPI 


04188 16 06741 64211 
04200 49 06690 00000 
04207 00005 64752 
04212 00005 00630 


09620 ~ 


"IT 


"MVE 


04218 49 04672 00000 


09630 


DORG 


*-3 


04226 


09640POWER 


TF 


AA+28, CONST 


04226 26 04320 00511 


09650 


~ SM 


A A+2B7T0 , TO 






04238 12 04320 OOOTO 


9660 


A 


AA+27.SPEC 


04250 21 04319 01939 



09670 FLN WORK,WORK 



09680AA FM WORK, 99999 



09690 FEX WORK, WORK 



09700 
09710 
9720LN 

9730 
09740 
09750L0G 



09760 
09770 
O978O EX N 

.0 9790 
09800 



V- MVE 
OORG *-3 
FLN WORK, WORK 

G MVE 

DORG *-3 

FLOG WORK, WORK 



B MVE 
DORG ''---3 
TEX WUKR.VrORK 

B MVE 
DORG *-3 



09810EXT FEX T WORK, WORK 



09820 



MVE 



04262 16 06741 54285 
04274 49 06670 00000 
04281 00005 54752 
04286 00005 54752 

04 252 J6 06Z41 54ji5_ 
04304 4 9 6490 00000 
04311 00005 84752 
04316 00005 "59999 

04322 16 06741 54345 
04J34 49.06610 00000 
64341 0000 5 04752 
04346 00005 04752 

04352 49 04672 00000 

04360 

04360 1 6 674 1 64383 
04372 49 06670 00000 
04379 00005 04752 
04384 00005 04752 

04390 49 04672 00000 

04398 

04398 16 06741 64421 

04410 49 06650 00000 

6W17 00005 54752 

04422 00005 04752 

04428 49 04672 00000 

04436 

04436 16 06741 64459 
04448 49 06630 00000 
04455 00005 64752 
044 60 0000 5 547 52 

04466 49 04672 00000 

04474 

04474 16 06741 54497 
04486 49 06610 00000 
04493 00005 04752 
04498 00005 54752 

04504 49 04672 00000 



145. 



9830 00RG *-3 

098itOSIN FS IN WORK, WORK 



09850 
09860 
09870C0S 

09880 
09890 



DORG *-3 

FCOS WORK, WORK 

B MVE 

DORG *-3 



09900ARCTAN FATN WORK, WORK 



uwtct tt rw_ 

09920 DORG *-3 

09930S0RT FSCR V/ORK,WORK 



09940 B MVE 

09950 DORG *-3 



09960DUMHY B 99999 
09970 DORG *-3 

09980MVE TFLS 99999, WORK 



09990 
TOOOO 
10010 



AM TRNF+23,8,10 

SM CNT.1,10 

BP TRNF+12 



04512 

Oif5 1 2 16 06741 64535 

01+524 kS 06570 00000 

04531 00005 04752 

04536 00005 04752 

04542 49 04672 00000 

04550 

04550 16 06741 04573 

04562 49 06550 00000 

04569 00005 04752 

04574 00005 04752 

04580 49 04672 00000 

04588 

04588 16 06741 64611 

04600 49 06590 00000 

04607 00005 04752 

04612 00005 04752 

04618 49 04672 00000 

04626 

04626 16 06741 04649 

04638 59 06530 00000 

04645 00005 04752 

04650 00005 04752 

04656 49 04672 00000 

04664 

04664 49 99999 00000 
04672 



04672 
04684 
04691 
04696 

04702 

04714 

04726 



T6 0S741 04695 

49 06690 00000 

00005 59999 

00005 04752 

11 03363 00008 

12 04742 00001 
46 03352 01100 



146. 



10020 BB 

04738 42 00000 00000 

100 30 DORG *-9 

04740 

10040CNT DS 3 

04742 00003 

100 50 WORK _DS_ JO _ _____ 

04752 00010 

10060TRC0N DSA MVE, RETURN, CHS I GN , SCALE ,MAGN f SUM, SUB, MPY , DVDE ,RCPR 

04757 00005 04672 

04762 00005 03558 

04767 00005 03632 

_ _4772_00005 03684 

04777.60005 03758 

04782 00005 03832 

04 7 87 0000 5 3906 

04792 00005 03980 

04797 00005 64054 

__ 04802 Q000_. _04128 

10070 DSA POWER , LN , LOG , EXN , EX T , S I N , COS , ARC TAN , SOR T j DUMMY 

04807 00005 04226 

04812 00005 04360 

04817 00005 04398 

04822 00005 54436 

___ 04827 00005 64^74 

64532 00005 04512 

04837 00005 04550 

04842 00005 64588 

04847 00005 04626 

04852 00005 04664 

100 80- * * * _ *__ _ _* * _ * * * * * * 

10090"-" SUBROUTINE FOR PRE PAR] NG DATA FOR ALPHAMER I CAL PRINTING OR 
10100* PUNCHING. INTERNAL FORMAT IS SPSM. 

10110- ************ 



10120 


DS 


10 




10130FLTF 


X CF 


ARG-9 


04862 00010 


10140ARG 


DS 


.FLTFIX-1 


04864 33 04854 00000 


10150 


TF 


OUTPUT, SEVENS 


04863 00000 


10160 


CF 


0UTPUT-9 


04876 26 05751 05763 


10170 


TF 


0UTPUT-1 , DCMAL 


04888 33 05742 00000 


10180 


TFM 


OUTPUT-19,0,9 


04900 26 05741 05773 


10190 


TFM 


SIGN, 0,10 


04912 16 05732 00600 


10200 


BNF 


JUMP.ARG-2 


04924 16 05775 00056 


10210 


TDM 


SIGN-1,2,11 


04936 44 04972 04861 
04948 15 05774 00002 



o 



147. 



10220 


CF 


ARG-2 










10 2 30JUI iP 






04960 


33 


04861 


00000 


CM 


ARG , 99, 101 1 






10240 






04972 


14 


04863 


00099 


BE 


V/RALPH 






10250 






04984 


46 


05308 


01200 


CM 


ARG,0, 10 






10260 






04996 


14 


04863 


00000 


ENP 


DEC 1 ML 






10270 






05008 


47 


05354 


01100 


CM 


ARG, 4, 10 








10230 






05020 


14 


04863 


00054 


DH 


LARGE 












05032 


46 


05434 


01100 


10290 


TFM 


TRNMT +1 1 ,ARG-9 








10300 




*+42,0UTPUT-10 


05044 


16 


05103 


04854 


TFM 






10310 






05056 


16 


05098 


55741 


S 


* + 30,A;RG 








10 320 




*+l8,ARG 


05068 


22 


05098 


04863 


S 






10330 TRNMT 






05080 


22 


05098 


04863 


TD 


99999,99999 






10340 


AM 




05092 


25 


99999 


99999 


TRNMT+1 1,1,10 










TRNMT+6,2 , 10 


05104 


11 


05103 


00051 


10 350 


AM 








10360 






051 16 


11 


05098 


00002 


CM 


TRNMT+6.0UTPUT-12 






10370 






05128 


14 


05098 


05739 


BNH 


TRNMT 








10380 






05140 


47 


05092 


01100 


TF 


WR| TE+23, TRNMT+1 1 








10 390 






05152 


26 


05259 


05103 


TFM 


EXPNT2,5,10 






10400 




EXPNT2.ARG 


05164 


16 


05777 


00055 


S 






10410 






05176 


22 


05777 


04863 


TFM 


*+47 .SEVENS 






10420 






05188 


16 


05235 


55763 


S 


-■'+35.EXPNT2 






104-30 






05200 


22 


05235 


05777 




*4-9 1 FY PW JO 






10440 






05212 


22 


05235 


05777 


A 


OUTPUT-1 2, 99999 






10450WRI TE 






05224 


21 


05739 


99999 


TFM 


-■-+18,OUTPUT-8 






10460 




OUTPUT-8,0 


05236 


16 


05254 


05743 


JO 






10470 






05248 


25 


05743 


00000 


AM 


WRITE+23,1,10 






10480 






05260 


11 


05259 


00051 


AM 


WRj TE+18,2, 10 














05272 


11 


05254 


00052 



10490 


OA 


WRITE+1 8, OUTPUT 


10500 


L'NH 


WR| TE+12 


10510WRALPH 


['D 


SETZRO.OUTPUT-18 


10520 


B 


SETSIC 


10530 


DORG 


*-3 


1O540SETZR0 


TDM 


OUTPUT, 


10550 


TF 


0UTPUT-20,SICN 


10560 


EJB 




10570 


DORG 


-A-_C) 


105303ECi:iL 


a; 


ARG.it, 1011 


10590 


BNH 


LARGE 


10600 


TFM 


WRI TE+23, ARG-9 


10610 


TFM 


V/R|TE + 18,0UTPUT-S 


10620 


S 


WRITE+1 8, ARG 


10630 


S 


WRI TE+18.ARG 


10640 


B 


WRI TE+12 


10650 


DORG 


*-3 


10660 LARGE 


TF 


0UTPUT-1 7, SEVENS -7 


10670 


BNF 


JUMP2.ARG 


10680 


TFM 


OUTPUT-20,20, 10 


10690 


CF 


ARG 


10700 


CF 


0UTPUT-1 9 


10710JUMP2 


TD 


0UTPUT-16,ARG 


10720 


TD 


OUTPUT-1 8, ARC-1 


10730 


CF 


OUTPUT-1 8 


10740 


TF 


OUTPUT-1 2 ,S 1 GN 


10750 


CF 


OUTPUT-1 3 



148. 



05284 


1 4 


05254 


05751 


05296 


47 


05248 


01 100 


05308 


43 


05328 


05733 


05320 


49 


05640 


00000 


05328 








05328 


15 


05751 


00000 


05340 


26 


05731 


05775 


05352 


42 


00000 


00000 


05354 








05354 


14 


04863 


oooo4" 


05366 


47 


05434 


01 100 


05378 


16 


05259 


-54854 


05390 


16 


05254 


55743 


05402 


22 


05254 


04863 


05414 


22 


05254 


04863 


05426 


49 


05248 


00000 


05434 








05434 


26 


05734 


05756 


OS^o 


i 1. 

44 


05494 


04863 


05458 


1 O 


05731 


00020 


05470 


33 


04863 


00000 


05482 


33 


05732 


00000 


05494 


25 


05735 


04863 


05506 


25 


05733 


04862 


05518 


33 


05733 


00000 


05530 


26 


05739 


05775 


05542 


33 


05738 


00000 



10760 


TF!', 


WR + 1 1 ,ARG-y 


Up5i>4 


1A nccQo nJiCJr/t 
I Uppoy UHOpM- 


10770 


TFM 


V7R + 6,0UTPUT-8 










05566 


1 b 05504 05/43 


10780WR 


TD 


99999,99999 


n c c 7 ft 
Upp/O 


/p yy y ? y y yy ^ y 


10790 


AM 


WR+1 1 , 1, 10 




1 1 uppo^ uuuu 1 






n C C on 


10o00 


AM 


V/R+6,2,10 










n c An 9 
up ou / 


1 1 UppOH uuuuz 


1 n P. in 
100 1U 


CM 


V/R+6, OUTPUT 










n C A 1L 


1 L crRii nc7 c 1 

In UppOH Up/Pi 


1 uozu 


i_>nln 


WD 


n£A?A 


ii7 ncc7P, n 1 inn 


10830 


CB 




n*;A3P, 

u p opo 


L.7 nnnnn nnnnn 

*-r L UUUUU UUUUU 


10840 


DORG 


*-9 


n c ALn 

Up OH-U 






TFM 


SFTS+11 nUTPUT-1 6 








n c ALn 
Upo'+u 


1A ncAA2 nc72c 
1 O Upoop Up/ pp 


10860SETS 


CD 


SET.0UTPUT-16 










nc Aco 
Upopz 


Hp UpOOH Up/Pp 


10870 


AM 


SETS+1 1 ,2, 10 










nc AAZi 


1 1 UpOOp uuuu/ 


1 nQ Qn 
IOCS 00 


p 
U 














n C A7 A 
u p / 


L.0 ncAeo nnnnn 

H > UpOp£ UUUUU 


10890 


DORG 


*-3 


nc APL 




10900SET 


TF 


*+30, SETS+1 1 


05684 


56 05714 


10910 


SI-1 


"+18.2, 10 


05696 


1 9 nc7 14 nnnfi? 

1 l. up/ 1 *T UUUU£ 








10920 


TF 


99999, SIGN 




OA QQQOQ nc77C 
to yyyjy Up//p 


10930 


BB 




nc7 ?n 

up / <iU 


L.9 nnnnn nnnnn 

*+ L UUUUU UUUUU 


10940 


DORG 


*-9 












Up/ 




10950 


DAS 


14 


0.57? 3 


000 14 


109600UTPUT 


DS 


2 


05751 


00002 


10970 


DAC 


1 , _ 


05753 


00001 


10 980S EVENS 


DC 


10,7070707070 


05763 


00010 


109 r )0JCMAL 


DC 


10,0000000003 


05773 


00010 


1 1000SIGN 


DS 


2 


05775 


00002 


1 1010EXPNT2 


DS 


2 


05777 


00002 



© 



1 1020* 
1 1030- 
11040-- 
1 1050 


SUBROUTINE TO FORM S 
DS 2 


1 1060SUMS 


TF 


CNT.N 


1 1070 


TF 


SUMS 1+28, DATA 1 


1 1080 


TF 


SUMS 3+2 3, SUM 1 


1 io:x)sumsi 


TFLS 


TEMPI , 99999 


11092 


BD 


"'+20, CON 6 


1 1094 


B 


SUM S3 


1 1096 


DORG 


*-3 


1 1 100SUMS2 


FM 


TEMPI , y5)999 


1 1 102SUMS3 


FA 


99999, TEMPI 


1 1 104 


AM 


SUMS 1+28, 10, 10 


11110 


AM 


SUMS 3+23, 10, 10 


111 20 


SM 


CNT.1,10 


1 1130 


BP 


SUMS 1 


11 131 


BD 


*+!4,C0N6 


11132 


BB 




11 133 


DORG 


*_q 


1 1 135SUMS25 


FA 


SUMV/T, 99999 


1 1 140 


BB 





I50. 

OF DATA. 



05779 


00002 




05780 


26 0^742 00426 


05792 


26 05844 


00516 


05804 


26 05919 


00541 


05816 
05828 
05835 
05840 


16 06741 
49 06690 
00005 
00005 


05832 
00000 

00 630 

qqqqq 


05846 


43 05866 00446 


O5858 


49 05896 00000 


05866 






O5866 
05878 
O5885 
05890 


16 06741 
49 06490 
00005 
00005 


05889 
00000 

00630 

99999 


05896 
05908 

Q5915 
05920 


16 06741 
49 06470 
00005 
OOO65 


05919 
00000 

95999 
00630 


05926 


11 05844 oop To 


05938 


11 05919 


000T0 


05950 


12 04742 


00061 


05962 


46 058I6 01 100 


05974 


43 05988 00446 


05986 


42 00000 


00000 


05988 






05988 
06000 
0600 7 
060 1 2 


16 674 1 66011 
49 06470 00000 
00005 00891 
00005 99999 


060 18 


42 00000 


00000 



o 



© 



151. 



1 1 1 50 

1 1 1 60- 
11170* 
1 1 180* 
11 130 

II200PR0D 

11210 

11220 

11240 



00R( 



SUBROUTINE TO FORM SUMS 



06020 

OF PRODUCTS. 



OS 
TF 
TF 
TF 
TF 



11 250PRO0] TF 



PRUDZ+28.DATAT 

PR0D4+28.V/T 
PR0D8+23.R 
WCNT,N 
RCNT.WCNT 



11260PR0D2 TFLS V/ORK, 99999 

11270PROD3 C WORK, ZERO 

1 1280 BE _ PROD 11 

11290 BD PR0D4,C0N6 

11300 B PROD 5 

11320PR0D4 FM WORK, 99999 

"TT33OPROD5- TF PRt30^+^-,pRt)rJ2*2S 

11340 TF PR0D7+28.PR0D2+28 

11 350PR0D6 C 99999, ZERO 

TT360 "BE MOD T ' 

11370PR0D7 TFLS TEMPI, 99999 



11380 



FM TEMPI, WORK 



06021 00002 

06022 26 061 10 00516 

06034 26 061 84 00556 

06046 26 06317 00551 

06058 26 06444 00426 

06070 26 06447 06444 

06082 16 06741 56105 
06094 49 06690 00000 
06101 00005 64752 
06106 00005 §9999 

06112 24 04752 00861 

06124 46 06422 01200 

06136 43 06156 00446 

06148 49 06186 00000 

06156 

06156 16 06741 06179 
06168 49 06490 00000 
06175 00005 54752 
06180 00005 99999 

06186 26 06216 061 10 

06198 26 06262 06110 

06210 24 99999 00861 

06222 46 06324 012Q0 

06234 16 06741 06257 

06246 49 06690 00000 

06253 00005 00630 

06255 Q0005 59999 

06264 16 06741 56287 
06276 49 06490 00000 
06283 00005 60630 
06288 00005 64752 



1 1 390 PRO J 3 


FA 




1 1400 MODI 


AM 


PROD 6+ 6, 10, 10 


" 114 TO 


AM 


PRDD7+28", 10, TO 


11420 


AM 


PR or 8+2', 10, 10 


1 1430 


SM 


RCNT, 1 , 10 


" 11440 


CP 


PR0D6 


1 1450M0D2 


AM 


PR0D2+28, 10, 10 


11460 


SM 


■'CNT, 1 , 10 


H470 


T? 


PROD 1 " 


1 14 90 


BD 




11 son 


UORG 




- 1 1540PR 00 ti- 


A -- 


PR0t)8+22,WeNT 


ll 550 


B 


M0D2 


11560 


DORG 


*-3 


- rt570wewT 


us - 


3 


1 158orcnt 


JS 


3 


1 1605 


)AC 


1,0 


-11600 { 




START? 



062?4 
06306 
06313 
0631c 


16 0674T 
> 4 ; > 0647C 
n 0005 
00005 


66317 
00000 

?99i'9 
00 630 


06324 


1 1 


062 1 6 


000T0 


06336 


1 1 


06262 


000T0 


06348 


1 1 


06317 


000T0 


06360 


12 


6447 


00001 


06372 


46 


06210 


01 ion 


06384 


1 1 


061 10 


000 To 


63i 6 


12 


06444 


00061 


06408 


46 


06070 


01 100 


06420 


42 


n0000 


00000 


06422 








06422 


21 


06316 


06444 


06434 


49 


06384 


00000 


06442 








06444 


0000 3 




06447 


0000 3 




0644? 


00001 




02144 









153- 



LOAO SUBROUTINES 



06450 
06462 
06470 
06482 
064'*) 
06502 
06510 
06522 
06530 
06542 
06550 
06562 
06570 
06582 
06590 
06602 
06610 
06622 
06630 
06642 
06650 
06662 
06670 
06682 
06690 
06702 
06710 
06722 



16 07144 
49 06730 
16 07144 
49 067 30 
16 071M+ 
49 06730 
16 07144 
49 06730 
16 07144 
49 n6834 
16 07144 
4? 06834 
16 07144 
49 06834 
16 07144 
49 O6834 
16 njikk 
49 06834 
16 07144 
49 06834 
16 07144 
49 06834 
16 07144 
49 06834 
16 07144 
49 06834 
16 07144 
49 06834 



07790 


07834 


08 334 


08574 


08910 
g 



09522 


TO 3 34 


71324 


71344 


72064 


72084 


12':>©6 


12938 




END OF PASSU 
00402 CONT 



00420 
00435 
00443 
00448 
00453 
00458 



' "INVAR' 
NOCON 
C0N3 
CONS 
CON 13 
C0N18 



U050 I *r UK MA r 
00526 B 



0055t 
00576 
00595 
00610 
00 6U0 

00690 

00740 
00861 

00 900 

01 244 



R 

ADR I J 
t 

Q 

TEMP2 



[IF 
VP 

ZERO 
RFS 
RET 

01 345 t.T5 — 
01636 BRNCM 



01910 

01968 
Ot<)83 
02302 

02606 SUP' - ! 

02888 END2 



0VR2 
COMN 
ALPHA 
CM NO 



00407 
0042 3 
00437 
00444 
00449 
00454 
00481 
00506 
00531 
00556 
00581 
005^)8 
00614 



DATE 



03032 
03250 
03594 
03758 



PNCH 

r!V 

TRMF1 

MAGN 




00409 
-"00426 
00440 
00445 
00450 
00455 
00486 

-oostt 

00536 
00561 
00 586 
00601 
00617 



- OOtSO AO 0660 

00700 F 00710 

00750 VE OO830 

OO87I ZEROS 00881 

00^36 FRMT 00? 80 

01256 D1 01280 

— 1 368 — mn oi 388- 

01680 DIGIT 01704 

019T2 ZEROX 0193^ 

01973 EXPNT 01974 

02144 -START 2 02210 

023 94 PASS 02426 

02914 WORDS 02916 

03068 PNCH 1 3120 

03340 TRNF 03436 

tT3632 *CHSIGN 03664 

3794 FMUL 3832 



00414 
00429 
00441 
00446 
00451 
00456 
00491 
00516 
00541 
00566 
00589 
00604 
00620 



NOBS 



00417 
00432 



NFORM 
* NOTRAN 



C0N1 00442 C0N2 

C0N6 00447 C0N7 

C0N11 rr^C2 C0N12 

C0N16 00457 C0N17 

ID 004<-i6 I DD 

•OATA-T ■- 0052 1 D ATA 2 

SUM 1 00546 SIGMA 

ADRNN 00571 ADU 

CNTR 00592 CTR 

L 00 607 P 

I VP 00630 TEMPI 



00670 RSOR 00680 StR" 



00720 

00841 

00891 

01016 

01300 

015T& 

01800 

01944 

01978 

02222 

02532 

02808 " 

02928 

03144 

3550 

0*684 

3868 



FOUT 
FP001 

SUMWT 
L00P1 
PER 



TRSMT 

AODR 

PNUM 

LO0P4 

CPS 



— eMm- 

'PRINT1 
Dl VS 
BRCH 
SCALE 
FADD1 



00730 
00851 
00834 
01064 
01324 



SfTft 1 528 



01890 
01958 
01981 
02301 
02576 



HIGH 

FHtGH 

WCTR 

CMCOL 

Ok 

MOVE 

STEP 1 

INPUT 

MCNT 

TRtGI 

FORMM 



28 64 PSP- 



03018 
03214 
03558 
3720 
03906 



RET 1 
TFS 

*RETURN 
FADD 
SUB 



03?42 FStiC 03^50 MPY 

04128 RCPR n/*226 POViER 

04436 EXN 04474 EXT 

04626 SQRT 04664 DUMhY 

04757 TRCON 04864 *F LTF I X 

05236 WRITE 05308 *WRALPH 

0541* JUMP 2 05578 WR 

05751 *0UTPUT 05763 *SEVENS 

05780 SUMS 05816 SUMS t 

060 22 PROD 06070 PRODI 

06186 PROD 5 06210 PR0D6 

06384 M0D2 06422 *PR0D11 



04016 FMUL1 
042;?2 AA 
04512 SIM 
0467 2 t IV E 
04863 ARG 
05328 *SETZR0 
05640 *SETS t G 
05773 DCMAL 
05866 SUMS 2 
06082 PROD 2 
06234 PROD 7 
06444 WCNT 



04054 DV'JE 

04360 LN 

04550 COS 

04742 CMT 

04^72 JUMP 

05354 *JEC|ML 

05652 SETS 

05775 SIGN 

058<?6 SUMS 3 

06112 PR0D3 

062 ;4 PR 00 8 

06447 RCNT 



04010 FDIV 
043:£ L->. 
04588 --ARC TAN 
047 5 2 V/O-IK. 
05012 TRNMT 
05434 LARGE 
05684 SET 
05777 *EXPNT2 
05°88 -SUMS 25 
06156 PR 004 
06324 MOD 1 



156 

11610* PROGRAM 80-3, FORM MEANS , STANDARD DEVIATIONS AND CORRELATION 
11620* MATRIX. FEB 14, 1963- 



1 1630 


DORG 






11640C0NT 


DSS 


80 


00402 


11 650 DATE 


DS 


6,CONT+5 


00402 00080 


11660PR0B 


DS 


2.C0NT+7 


00407 00006 


11670N0DS 


DS 


1. CONT+1 ? 

J $ ^ vM III t 


00409 00002 


11680NF0RM 


DS 


3. CONT+1 ^ 

J 9 **** * ' 1 J 


00414 00005 


1 1690 1 NVAR 


OS 


3 CONT+1R 

J f v VI 1 |T| U 


00417 00003 


1 1700N0VAR 


DS 


j t vUn 1 | 


00420 00003 


1 1 7 ION 


DC 
Lib 




00423 00003 


1 1 720ND£P 


DS 


3,CONT+27 


00426-00003 


1 1 / j\jnU 1 KAN 


nc 


3, CONT+30 


00429 00003 


1 1 7L.nMnrnw 


Uo 


5 , UUN 1+55 


00432 00003 






/ , UUN 1 +35 


00435 00003- 


1 1760NEL 1 f 1 


DS 




00437 00002 


1 1 77nrnw 1 

tiff UvUH 1 


nc 


I , ouin 1 +jy 


00440 00003 


1 1780C0N2 




1 ,C0NT+40 


00441-00001 . 


11790C0N3 


DS 




00442 00001 


1 1800C0N4 


DS 


1 ,C0NT+42 


00443 00001 


11810C0N5 


DS 


i7cONT+43 


- 00444 00001 


1 1820C0N6 


DS 


1,CONT+44 


00445 00001 


11830C0N7 


DS 


J.CONT+45 


00446 00001 


11 840 CON 8 


DS "~ 


1.C0NT+46 " 


004.47 00001 


II85OCON9 


DS 


1,C0NT+47 


00448 00001 


11860C0N10 


DS 


1.C0NT+48 


00449 00001 


11870CON11 


DS~~ 


r,c"6NT+4y 


00450 00001. 


11880C0N12 


DS 


1,C0NT+50 


00451 00001 



00452 00001 



i 1 RnnroN 1 3 
1 1 ^ j\j v i» i j 


US 


1 rnMT+ci 














UUUU 1 


i 1 qaa r hm i Ji 


Ub 


1 r DM TiC 

1 , OUN 1 +pZ 


00454 


00001 




Ub 


1 , 1. UN 1 +p3 


00455 


00001 


11920C0N16 


Ub 


1 , LUN 1 +54 













00456 


00001 






- - 


t i o *tf\ rnki * ■? 

1 1 y30^vJNi / 


DS 


1 ,CONT+55 


00457 


00001 


i i alt f\r r\Kt 1 Q 


DS 


1 , CONT+50 


00458 


00001 


1 195003SER 


DS 


10,CONT+79 












00481 


00010 







— — ■ 


1 t CiCfS 1 Kin 


Ub 


5 


00486 


00005 


1 i 9/0 1 D 


DS 


5 






1 19801 DD 






00491 


00005 


DS 


5 












00496 


00005 






, 


1 1990F0RMAT 


DS 


5 


00501 


00005 


1 2000 1 NDEX 


DS 


5 












00506 


00005 


1 2010C0NST 


DS 


5 










■ ■ — ; — 


0051 1 


00005 








12020 DA TA1 


DS 


5 


00516 


00005 


1 20300ATA2 


DS 


5 












00521 


00005 








1 20*^0 B 


DS 


5 












00526 


0000-5 









1 2050SE 


DS 


5 


00531 


00005 


12060T 


DS 


5 


00536 


00005 


1 OA "7 AC 1 IK'. 1 
1 ZU/ObUI'l 1 


Ub 


5 












00541 
00546 


00005 

00005 




1 oaO ac irh/ 
1 2060b 1 ul 1A 


nc 

Ub 


— 

5 


1 2090K 


nc 
Ub 


5 


00551 


00005 


1 2100WT 


DS 


c 
j 












00556 


00005 








121 10ADKK 


DS 


5 


00561 


00005 


12120ADRNN 


DS 


5 


00566 


00005 


12130ADIJ 


DS 


5 












00571 


00005 








12140ADRIJ 


DS 


5 


00576 


00005 


12150SIGN3 


DS 


5 


00581 


00005 



V J 



12160C0UMT 


DS 


5 


12170CNTR 


DS 


3 


12180CTR 


DS 


3 


1 2 1 90 1 


DS 


3 


12200J 


DS 


3 


12210K 


DS 


3 


12220L 


DS 


3 


12230P 


DS 


3 


12240Q 


DS 


3 


12250MSZ 


DS 


4 


12260IVE 


DS 


3 


12270 1 VP 


DS 


3 


12280TEMP1 


DS 


10 


12290TEirP2 


~dsT 




12 300 AO 


DS 


10 


12310EY 


DS 


10 


12320RSCR 


DS 


10 


12330S0R 


DS 


10 


12340DF 


DS 


10 


12350F 


DS 


10 


12360FIN 


DS 


10 


12370FOUT 


DS 


10 


12380HIGH 


DS 


10 


12390VP 


DS 


10 


1 2400VE 


DS 


10 


124100UT 


DS 


80 


12420 


DC 


1,@ 



00586 00005 
00589 00003 

00592 00003 
00595 00003 
00598 00003 
0060 1 00003 
00604 00003 
00607 00003 
00610 00003 
00644 00004 
00617 00003 
00620 00003 
00630 00010- 
00640 00010 
00650 00010 
-00660 000 10- 
00670 00010 
00680 00010 
00690 00010- 



00700 00010 
00710 00010 
■fl072Q 0001Q 
00730 00010 
00740 00010 
00750 00010 



00830 00080 

00831 00001 



V / 



o 



159, 



12430 DC 

12440FP001 DC 

12450 DC 

12460FHIGH DC 

12470 DC 

12480ZER0 DC 

12490ZER0S DC 

12500 DC 

125100NE OC 

12515SUMWT DS 



8, 10000000 
2,-2 

8, 10000000 
2,50 



8,0 

2,-99 

10,0 



12520IICNT DS 
12530PNUM DS 
12535ESSZER DC 



8, 10000000 

2,1 

10 

3 

4 

2,-7 



12540* 

12550* IS IT ONE PASS INPUT. 
12560* 

12570STARI}_BD LSD,CQN5 

12580* 



IS IT FORCED THROUGH THE ORIGIN. 
BD LSD-12.C0N7 



00839 

00841 

00849 

00851 

00 85 9 

00861 

00871 

00879 

00881 

00891 

00894 

OO898 

00900 



00008 
00002 
00008 
00002 
00008 
00002 
00010 
00008 
00002 
00010 
00003 
00004 
00002 



00902 43 01214 00445 



12590* 
12600* 
12610 

12620* 009,4 
12630* EQaa. I.ARGF VAR I ANP F-rCQVARlAMCE MATRIX 
12640* 

12650LV TF LV3+23,R 

12660 TF LV1+28,SUH1 00926 

12670 - TF. LU2+28,SUM| ... 00938 

12680 TF LVCT2.N °° 95 ° 

12690LV4 TF LVCT1 ,LV'CT2 °° 962 

1270OLY1 IELS-IEME1^9909. - 00974 

00 986 
00998 
01005 
01010 



43 01202 00447 



26 01099 

26 01014 

26 01044 

26 01340 

26 01337 

16 02491 
49 02460 
00005 
00005 



00551 

00541 

00541 

00426 

01340 

91009 
00000 
00630 

59999 



1271QLV2 


FM 


TEMPI, 99999 .. 


1 L 1 i\i 


r J 


TEMPI ,OBSER 


12730LV3 


FS 


99999, TEMPI 


1 2740 


AM 


LV2+28, 10, 10 


12750 


AM 


LV3+23,10,10 


12760 


SM 


LVCT1 , 1 , 10 


12770 


BP 


LV1 


12780 


AM 


LVI+28,10, 10 


12790 


" TF 


LV2+28.LV1+28 


12800 


SM 


LVCT2, 1,10 


12810 


BP 


LV4 


12820* 
1283Q* 
12840* 
12850 


FORM MEANS. 

BTM MEANS, 0,10 



12860*__: 

12870* FORM LARGE STANDARD DEVIATIONS 
12880* 

TF LVCT1,N 



12890LSD 
12900 
12910 
1 2920 
12930 
1 2940LSb 1 
12950 



TF 
TF 
TF 
TF 

C 



LSD1+6.R 
TSD2+237srGMA 
LSD3+28.R 
LSD 3+23, SIGMA 



99999, ESSZER 
BNN LSD3 



01016 16 02491 51039 

01028 49 02400 00000 

01035 00005 00630 

01040 00005 99999 

01046 16 02494 5 1069 
01058 49 02420 00000 
01065 00005 50630 
01070 00005 50481 

01076 16 02491 51099 
01088 49 02380 00000 
01095 00005 99999 
01100 00005 50630 

01106 11 01044 OOOTO 

H 18- XV O109£ 00040- 

01130 12 01337 00051 

01142 46 00986 01100 

01154 ll-QlQJ4_HQOlO- 

01166 26 01044 01014 

01178 12 01340 00051 

0119Q -46.00974. O110O. 



01202 17 02032 OOOOO 



01214 26 01337 00426 
JQ1226. JZ6. 0L28Q- 
01238 26 01321 00546 
01250 26 01370 00551 
01262 26 O I365 0O546 
01274 24 99999 00900 
01286 46 01342 01300 



12960LSD2 TFLS 99999, ONE 

12970 B LSD4 
.42980 DORG *^-4 - 

12990LVCT1 DS 3 

13000LVCT2 OS 3 
-4-30-WW-SO-3 F SCR 99 9 99,9 99^9 



13020LSD4 



13030 
13040 
13050 



A 

AM 
AM 



LSD1+5.LVCT1 
LSD3+27.LVCT1 
LSD2+23,10,10 
LSD3+23.10.10 



13060 

13070 

13080* 
13090* 
13100* 
13U0C0R 

13120 

13130 

13140 

13150 

1316a 

13170COR1 



SM 
BP 



TF 
TF 

TF 
TF 

— IF- 
FD 



LVCT1,1,10 

LSD 1 

r | Q N MAT RIX 
C0R1+23.R 
C0R2+23,R 
COR 1+28,5; I EMA. . .. 
COR 2+28, SIGMA 
LVCTl.N 
LVCTi.LVCTl 
99999,99999 



13180C0R2 FD 99999,99999 



01298 
01310 
01317 
01322 



16 02491 01321 

49 02460 00000 

00005 99999 

00005 00881 



01328 49 01372 00000 

01335 

01337 

01340 

01342 
01354 
01361 
01366 

01372 

01 384 

01396 

01 408 

01420 

01432 



00003 




00003 




16 02491 
49 02440 
00005 
00005 


01365 
00000 

99999 
99999 


21 ©1279 


01337 


21 01369 


01337 


11 01321 


000 To 


11 01365 


oooTo 


12 01337 


00001 


46 01274 


01100 



01444 

01456 

01468 

01480 

01492 

01504 

01516 
01528 
01535 
01540 

01546 
01558 
01565 
01570 



26 01539 

26 01569 

26 01544 

26 01574 

26 01337 

26 01340 

16 02491 
49 02420 
00005 
00005 

16 02491 
49 02420 
00005 
00005 



00551 

00551 

00546 

00546 

00426 

01337 

01539 
00000 

99999 
99999 

61569 
00000 

99999 
99999 



162 



131 90 


AM 


C0R?+28 10 10 


1 3200 


AM 


r no 1-1.9 3 in in 

UUT\ | ~ £.J , IU , IU 




AM 


I'UuiTiJ, IU, IU 




c:m 
jrl 


i urn i in 
LVL I z, 1 . It) 


13230 


BP 


C0R1 


13240 


AM 


CORI+28,10,10 


13250 


TF 


COR 2+28, COR 1+28 


13260 


SM 


LVCTI.1,10 


13270 


BP 


COR 1-1 2 


13280* 
13290* 
13300* 
13310 


SJET R{1 
TF 


,1) =-0ME 

LVCTl.N 


13320 


TF 


SET1+23.R 


1 3330SEI1 _ ___TFJ_S_93999,QHE__ 


13340 


A 


SET1+22.LVCT1 


1 3350 


SM 


LVCT1.1.10 


13360 


BP 


SET 1 


13370* 
13380* 
13390* 
13400SD 


FORM STANDARD DEVIATIONS. 

TF LVCTl.N 


13410 


TF 


SD 1+23,5 IGMA 



_ J 34 ?n 



13430SD1 



-ESQR Tf 



FD 99999, TEMPI 



01576 11 
01588 11 
01600 11 
01612 12 
01624 46 
01636 11 
01648 26 
01660 12 
01672 46 



01574 000 TO 
01539 000 TO 
01569 000 TO 
04 3 40 QO Qg l 
01516 01100 
01544 000 TO 
01574 01544 
01337 OOOCl 
01504 01100 



01684 26 01337 

01696 26 01731 

01708 16 02491 
01720 49 02460 
01727 00005 
01732 00005 

01738 -2 1 01730 

01750 12 01337 

01762 46 01708 



00426 
00551 

51731" 
00000 
99999 
00881 

01337- 

00001 

01100 



13440 



AM SD 1+23, 10. 10 



01774 26 01337 00426 

01786 26 01851 00546 

6 1798" 1 6 02491 51821 
01810 49 02440 00000 
01817 00005 00630 
01 822 00005 50481 

Q I828 16 074Q1 filftsi 

01840 49 02420 00000 

01847 00005 99999 

01 852 00005 50630 

OI858 11 01851 000T0 



o 



a 



163 



13450 
13460 
13470 
13480 



SM 
BP 

B 



LVCT1 , 1, 10 

SD1 

CMP 10 



DORG *-3 



13600* 

13610* ARE MEANS, SO, AND CORMAT PUNCHED 
1 3620* 

13630CI',P10 BO *+20,C0N10 



1364& 
13650 
13660 
-4-3670- 
13680 
13690 
4*700- 
13710 



END3 



DORG. *-3 

TF PNUM.N 

BT -PNO+^UWI 

TF PNUM,N 

BT Pf4CH,S|CMA 

-IF PNUM,HSZ . 

BT PNCH.R 

13720EN03 BT CONV.NOBS 

-1372S* BMCQ-O- 

13730 B 

13740* ***** 

13750* SUBROUTINE TO FORM MEANS . 

13760* * * * * * 

13770 DS 2 

13780MEANS TF MCNT.N 

1 375X> TF DIVS+23,SUf,1 

13800DIVS FD 99999, OBSER 

4J-VS+2-3T40-, 10 
-ICUT.1,10 
01 VS 



13810 
13820 
13830 



AM 
SM 
BP 



01870 12 01337 00001 
01882 46 01828 01100 
01894 49 01902 00000 
01902 



01902 43 
01914 49 
01922 
01922 26 
01934 27 
01946 26 
01958 27 
01970 26 
01982 27 
01994 27 
02006 36 
02018 49 



01922 00450 
01994 00000 

OO838 00426 
02130 00541 
OO898 00426 
02130 00546 
OO898 00614 
02130 00551 
02222 00414 
00000 00500 
00000 00000 



02031 00002 

02032 26 00894 

02044 26 02079 

02056 16 02491 
020 68 4 9 2420 
02075 00005 
02080 00005 

02086 11 02079 

02098 12 00894 

02110 46 02056 



00426 
00541 

82079 
00000 

99999 
00481 

000 To 

00001 

01100 



13840 
13850 



oorc; *-y 



13860* * * 
13870* PUNCH SUBROUTINE. 
13880* * * * 
13890 US .. 5 



13900PNCH 

13910 

13920 



V/NCD 402 

TF PNCH1+6,PNCH-1 
SM PNCH 1+6,9,10 



13930PNCH1 WNCD 99999 



13940 

13950 

13960 

1 3970 

13980 

13990* 
14000* 
14010* 
14020 

14030C0NV 

14040 

14050 

14060 

14070TESTD BD 
14080 



AM PNCHI+6,80, 10 
S.'i PNUM r 8,10 
BP PNCH1 

BB 

DORG *-2 



14090 
14100 
14110 
14120 

14130SETM 



SUBROUTINE TO FLOAT NOBS. 
OS 5 

TFM EXP3.5. 10 
TFM TESTD+1 1 ,C0NV-5 
TFM MVWRD+6.0BSER-5 
TF~ OBSER, ZEROS 
SETM, 99999 
AM TESTD+1 1,1, 10 
SM EXP3,1,10 
SM MVWRD+6,1,10 
B TESTD 
DORG *-3 

TF *+!8, TESTD+1 1 



02122 42 00000 00000 
02124 



02128 
02130 
02142 
02154 
02166 
02178 
02190 
02202 
02214 
02216 



00005 
38 00402 
26 02172 
12 02172 
38 99999 

11 02172 

12 OO898 
46 02166 
42 00000 



00400 
02129 
00059 
00400 
000 BO 
00058 
01100 
00000 



02220 00005 
02222 16 02377 00055 
02234 16 02281 62217 
02246 16 023S6 50476 
02258 26 00481 00871 
02270 43 02326 99999 
O2282 11 02281 -QOflSl 
02294 12 02377 0005l 
02306 12 02356 0005l 
0231fi-49 02270 00 000 
02326 

02326 26 02344 02281 



i 1 t i iirt 
] 4 14U 


c c 
or 


99999 


il, 1 r a • 1\'U/D H 


TC 

I r 


J J J J J > v»urj v 


14060 


TF 


0BSER.EXP3 


14070 


BB 




14080 


DORG 


*-9 


14085EXP3 


DS 


2 


14090 


DAC 


1,0 


14100 


IdEnT 


S TAR T 3 



LOAD SUBROUTINES 



02338 32 39999 00000 
02350 26 99999 02221 
02362 26 00481 02377 
02374 42 0O000 00000 
02376 

02377 00002 

02379 00001 
00202 

02380 16 02894 03352 
02392 49 02480 
02400 16 02894 5*896 
02412 49 02480 
02420 16 02894 04136 
02432 49 02480 
02440 16 02894 04472 
02452 49 02584 
02460 16 02894 05O52. 
02472 49 02584 



END OF 

00402 

00420 

00435 

00443 

00448 

00453 

004 58-- 

00501 1 

00526 

00551 

00576 

00595 

0061Q 

00640 

00690 

00740 

00861 

00898 

01298 
01444 
01828 
02130 
02350 



PASS I I 

cxmT 

I NVAR 
NOCOW 
C0N3 
CON 8 
COM 13 

FORMAT 

B 
R 

AORIJ 
I 

TEMP 2 

OF 

VP 

ZERO 
PNUM 

LSD2 

COR 

SD1 

PNCH 

MVWRD 



00407 
00423 
00437 
00444 
00449 
00454 

00506 
00531 
00556 
00581 
00598 

00650 

00700 

00750 

00871 

00900 

01016 

01337 

01516 

01902 

02466^ 

02377 



~DAI£- - 
NOVAR 
NCOL 
C0N4 
CON 9 
CON 14 

QB S E R _ 

INDEX 

SE 

WT 

SIGN3 
J 

,i 

AO 
F 

VE 

ZEROS 
*ESSZER 

LV2 

LVCT1 
C0R1 
CMP 10 

EXP3 



0040-9- 

00426 

00440 

00445 

00450 

00455 

00 4 8 6 

00511 

00536 

00561 

00586 

00601 

0061 7 

00660 

00710 

OO83O 

0088 1 

00902 

01076 

01340 

01546 

01994 

02222 



- prqe 

N 

NELIM 
CON 5 
CON 10 
CON 15 
I ND -- 
CONST 
T 

ADKK 

COUNT 

K 

- 4-VE- — 
EY 
FIN 
OUT 
ONE 

*START3 

- kV3- 
LVCT2 
C0R2 
END3 
CONV 



00414 
00429 
00441 
00446 
00451 
00456 
40491 
00516 
00541 
00566 
00589 
00604 
OO62O 
00670 
00720 
00841 
00891 
00926 
12 14 
01342 
01708 
02032 
^2270 



N O B S - 

NDEP 

C0N1 

C0N6 

CON 11 

C0N16 




40447-— 4£ 
00432 *not; 
00442 CO 
00447 
00452 
00457 

00496 *0J 

00521 DA 
00546 
00571 
00592 
00607 

00680 SCI 
00730 
00851 
00894 
00974 
0127 4 
01372 LSI 
01774 SD 

02056 on 

02326 S£ 



CO 
CO 
CO! 



SK 
AD 
CTf 
P 



HH 
FH 
MCI 
LVi 



© 



1 4 000* PROGRAM 


80-4A, STEPWISE REGRESSION, 


-'IAY 7, 1963- 


14010 


OORG 


402 








00402 


14020C0NT 


OSS 


80 


140 30UATE 






00402 00080 


US 


6.CONT+5 




14040PR0B 






00407 00006 


OS 


2.CONT+7 


14050NOBS 






0040 9 00002 


OS 


5,CONT+12 




14060NFORM 






00414 00005 


OS 


3.CONT+15 


140 70 INVAR 




3.CONT+18 


00417 00003 


OS 










00420 0000 3 


14080N0VAR 


OS 


3.CONT+21 


14090N 






00423 00003 


OS 


*,C0NT+24 


14100NDEP 






00426 00003 


OS 


3,eONT+27 




14110N0TRAN 






00429 00003 


OS 


3, CONT+30 




14120NOCON 






00432 00003 


OS 


3.CONT+33 




i4i30Neot 






00435 00003 


DS 


2.CONT+35 


14140NELIM 






00437 00002 


OS 


3,CONT+38 


14150C0N1 






00440 0000 3 

00441 00001 


OS 


1 , C0NT+39 


l4l6oetW2 


os - 


1,eOWT+40 


00442 00001 


14170CON3 


OS 


1.C0NT+41 




14180C0N4 






00443 00001 


OS 


1.C0NT+42 


i4t<.»coN5 






00444 00001 


DS 


t.CONT+43 




14200CON6 






00445 00001 
OOhho 00001 


OS 


1,C0NT+44 


14210C0N7 


OS 


1,CONT+45 










00447 00001 

00448 00001 


14220C0NS 


OS 


l.CONT+46 


14230C0N9 


OS 


1.CONT+47 










00449 00001 

00450 00001 


14240C0N10 


OS 


1.C0NT+48 


14250CON11 


OS 


1,C0NT+49 




14260C0N12 






00451 00001 


us 


1.C0NT+50 


00452 00001 




168- 



14270CON13 


DS 


1 .CONT+51 


00453 00001 


14280C0N14 


OS 


1 , CONT+52 


00454 00001 


14290C0N15 


US 


1.CONT+53 


00455 00001 


143O0C0N16 


OS 


1.C0NT+54 


OuHbb UUUO 1 


14310CON17 


OS 


1.C0NT+55 


00457 00001 


14320C0M18 


OS 


1 .CONT+56 


00458 00001 


14330 OBSER 


DS 


10.C0NT+79 






nnkfii nnnin 


14340IND 


DS 


5 


00486 00005 


1435010 


DS 


5 


00491 00005 


14360IDD 


DS 


5 


00496 00005 


14 370 FORMAT 


DS 


5 


00501 00005 


143801 NDEX 


OS 


5 


00506 00005 


14390C0NST 


DS 


5 


00511- 00005 


1 4400 OA TA 1 


DS 


5 


00516 00005 


144100ATA2 


DS 


5 


00521 00005 


14420B 


OS 


5 


Oft 52 6 00005 


14430SE 


DS 


5 




14440T 






00531 00005 


DS 


5 




14450SUM1 






00536 00005 


DS 


5 




14460SIGMA 






00541 00005 


DS 


5 


00546 00005 


14470R 


DS 


5 


00551 00005 


14480WT 


DS 


5 


00556 00005 


1449OA0KK 


DS 


5 


00561 00005 


14500ADRNN 


DS 


5 


00566 00005 


14510A0IJ 


OS 


5 


00571 00005 


14520ADRIJ 


OS 


5 


00576 00005 


14530SIGN3 


DS 


5 


00581 00005 



14540C0UNT 


DS 


5 




14550CNTR 






00586 00005 


OS 


3 


14560CTR 






00589 00003 


US 


3 


145701 






00592 00003 


DS 


3 


14580J 


DS 




00595 0000 J 


3 








00598 00003 


14590K 


DS 


3 


14600L 






00 60 1 00003 


DS 


3 


14610P 






00604 00003 


DS 


3 


14620C 






00 60 7 0000 3 


DS 


3 


14630MSZ 






00610 00003 


DS 


1+ 


1 461*0 IVE 






00674 OOO04 


DS 


3 




11+6501 VP 






00617 00003 


DS 


3 


1 1f 660 TEMPI 






00620 00003 


DS 


10 


11+670TEMP2 






0TJ63O 00010 


DS 


10 


14 680A0 






0061+0 00010 


DS 


10 


14690EY 






00650 00010 


DS 


10 


14700RS0R 






00660 00010 


DS 


10 


11+710S0R 






00670 00010 


DS 


10 


14720DF 






00680 00010 


DS 


10 


11+730F 






OO69O 000 TO 


DS 


*0 


14740FIN 






00700 00010 


DS 


10 


11+750FOUT 






00710 00010 


DS 


10 


14760MIGH 






00720 00010 


DS 


10 




11+770VP 






00730 00010 


DS 


10 


11+780VE 






00740 00010 


DS 


10 


11+7 90 OUT 




80 


00750 00010 


DS 


11+800 






00830 00080 


DC 


1,« 



00831 0000 



170. 



14810 


DC 


8, 10000000 










VkjO 5y UUUUO 


14820FP001 


DC 


2,-2 




14830 






00841 00002 


DC 


8, 10000000 










00849 00008 


14840FHIGH 


DC 


2,50 




14850 






UOD3 \ uuuuz 


DC 


8,0 










00859 00008 


14860ZER0 


DC 


2,-99 










00861 00002 


14870ZER0S 


DC 


10,0 








W&74 00010 


1 4880 


DC 


8, 10000000 








00879 00008 


148900NE 


DC 


2, 1 










00881 00002 


14900PNUM 


DS 


4 










00005 00004 


14910MCNT 


DS 


3 








00888 00003 


14920N0IN 


DS 


3 








00891 00003 


14930RCNT 


DS 


3 










00894 00003 


14940CNTR1 


DS 


3 


14950-- INI 






00897 00003 


TIALIZE DEGREES OF FREEDOM. 




14960* 








1 4970S TART4 


TFLS 


DF.OBSER 










-00-090 16 10C47 00 921 








00910 49 10596 00000 








001? IT OOOO5 00 690 


14980* 






00922 00005 00481 






14 1 »0* IS 


IT FORCED THROUGH THE ORIGIN. 




15000* 









15010 


BD 


DF 1 , C0N7 










0O928 43 00570 00447 


15020 


FS 


DF , ONE 










00940 16 10647 00963 








00952 49 10496 00000 








00959 00005 00 690 








00964 00005 60881 


1 50 30* 








15040* INI 


TIALI 


ZE SEQUENCE NUMBER AND STEP 


NUMBER. 


15050* 








15060DF1 


TFM 


PST2+1 1 ,0,9 










— 00970 16 09171 OOOOO 


15070 


TFM 


PST2+23, 1,8 




15080* 






0O982 16 09183 06001 







o 



a 
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DETERMINE INDEX OF DEPENDENT VARIABLE 
TF COUNT, N 



150 90* 
15 TOO* 
15110STW 

15120 

15130 

15140STW1 

15150 

15160 

15170 

15180 

15190 

15200 

15210 

15220 

15230 

15240* 

15250* CALCULATE ADDRESS OF R(L,L) , ADRNN, 
15260* 

15270STW2 TF P,L 
15280 TF 0,L 

15290 BTM CADIJ.O, 10 

15*00 TF ADRfW, ADt J 



TF STW1+11.IND 
TFM 1,1,10 

BNR *+32, 99999 
TF L, I 
B STV/2 
DORG *-3 

AM STWI+11,1,10 
I ,1 , 10 
COUNT, 1,10 
S TV/1 



AM 
SM 
BP 
H 



00994 26 
01006 26 
01018 16 
01030 If 5 
01042 26 
01054 4"? 
01062 
01062 11 
01074 TT 
01086 12 



00586 
01041 
00595 
01062 
00604 

mm 



00426 
00486 
00001 
99999 
00595 
00000 



01098 46 

,,, ERROR HALT. NO DEPENDENT VARIABLE. 

OTT10 48 

DORG *-y 

01112 

01112 26 
01124 26 
01136 17 
01148 26 

01160 47 
01172 26 
01184 26 
01T96 3# 
01208 11 
01220 12 



15*10* 

15320* SELECT VARIABLE TO ADD OR DELETE 
15*30* 

15340STW22 BNC4 STW23 

15345 TF COUNT, N 

15350 TF *+l8,IND 

15360STW24 WNCD 99999 

15362 AM STW24+6.80, 10 

15 364 SM COUNT , P<0 , 10 



01041 00001 
00595 00001 
00586 00001 
01030 01100 
OOOOO 00000 



00 60 7 00 604 

00 610 00 604 

04948 OOOOO 

00566 00571 

01318 00400 
00586 00426 
01202 00486 
99999 00400 
01202 OOOBO 
00586 OOOBO 



172- 



1 C 

1 o poo 


BP 


S TV/24 




jp 


PNUM M 




F' T 


r in o ri , oun i 




TFT 

1 r 


PMHK1 M 
r NUr! , IN 


1 pt uu 


F' T 


r IN u n , o I u i IM 


15410 


TF 


PNUM,MSZ 


15420 


BT 


PNCH.R 


15430 


H 




15440 


DORG 




15450STW23 


TF 


COUNT, N 


15460 


TFM 


1 ,1, 10 


15470 


TFLS 


VP.FHIGH 


15480 


TFLS 


VE,ZERO 



15490 TF STW3+28.R 

15500 TF STV/7+28.R 

15510 TF STW8+11.IND 

15520* 

15530* IS R ( I , I ) TOO SHALL. 
15540STW21 TFLS TEMPI, FP001 



15550STW3 FS TEMPI , 99999 



01232 4^-0H96 OtlOO 
01244 26 00885 00426 
01256 27 09442 00541 
Ot26& 2fr 00865 0042 6 



01280 27 09442 00546 
01292 26 OO885 00614 
©1 304 27 9 442 00551 
01316 48 OOOOO OOOOO 
01318 

uTjlu 2b 005UU OOHZo 

01330 16 00595 00051 

01342 16 10647 01365 
01 354 49 10596 OOOOO 
frt3frt- 00005 00740 



15560 
15570- 



BP STMOD 



01366 00005 00851 

01372 16 10647 01395 
01384 49 10596 OOOOO 
01391 00005 00750 
1 396 000 5 50861 

OT402 Ifr 01496 00551 

01414 26 0173S 00551 

01420 26 01763 00406 



01438 16 10647 01461 
01450 49 10596 OOOOO 

O l 457 00005 50630 

01462 00005 50841 

01468 16 10647 01491 
01480 49 10496 OOOOO 
01487 00005 00630 
01492 00005 99999 

01498 46 02000 01100 



15580* CALCULATE VARIANCE DECREASE 
155 DO-' 



15600 


C 


t ,L 


15610 


BN 


STW31 


15620 


CE 


STMOD 


15630 


TF " 


P,L 


15640 


TF 


0,1 


15650 


t'TM 


CADI J,0, 10 


15660 


ft - 


STW4 


15670 


DOR.G 


*-3 


1 One Xl.f * 

15oo0o TWil 


TF 


P » 1 


15690 


TF 


TT.t - - 


15700 


BTM 


CADIJ.O, 10 


15710STW4 


TF 


STW5+28,A0t J 


15720 


- TF 


STWfcF2S,ADt J 


1f7 3rtC TWr 


TC 1 C 

1 r Lo 


1 tfir 1 , yyy yy 


157^0STV/6 


FM 


TEMPI ,99999 


1 5750S TW7 


FO 


TEMP 1,99999 


15760 


CF 


TEI1P1— 2 


15770S TV/8 


c;D 


MEG , 99999 


15780 


TFLS 


TEMP2, VE 



173. 

I NCR E AS E . 



01510 


24 


00595 


00 604 


01522 


47 


01590 


01300 


01534 


46 


02000 


01200 


01546 


26 


00607 


00604 


01558 


26 


00610 


00595 


01570 


17 


04 948 


00000 


01582 


49 


01626 


00000 


01590 








01590 


26 


00607 


00595 


01602 


26 


00610 


00604 


01614 


17 


04348 


ooofio 


01626 


26 


01678 


00571 


01638 


26 


01708 


00571 


01 650 

01662 

1 669 
01674 


16 10647 
49 10596 
00005 
00005 


01673 
00000 
00630 

99999" 


01680 
01632 
01699 
01704 


16 10647 
49 10536 
00005 
00005 


01703 
00000 
00630 

qqoqc. 


01710 
01722 
01729 
01734 


16 10647 
49 10556 
00005 
00005 


01733 
00000 
00630 

CIO ~ MO 


01740 


33 00628 


00000 


01752 


43 01886 


99099 


01764 
01776 
0t783 
01736 


16 10647 
49 10596 
00005 
00005 


61787 
00000 
00640" 
00750 



© 



174. 



1 57S'0 FS TEMP 2, TEMPI 

15800 EJNN STMOD 

1 5810 TFLS VE, TEMPI 

15820 TF I VE, I 

15830 C: STMOD 

15840 DORG *-3 

15850NEG TFLS TEMP 2, VP 

15860 FS TEMP2, TEMPI 

15870 BNP STMOD 

15880 TFLS VP, TEMPI 

15890 TF I VP, I 

15 900 STMOD A STW3+27, COUNT 

15910 A STW7+27 > COUNT 

15920 AM STW8+11,1,10 

15930 AM » , 1 , 10 • 

15940 SM COUNT, 1 , 10 

15950 BP STW21 

15960* - - 

15970* TEST FOR FINISH IF FIN = ZERO 
15980* 

159^0 C FIN, ZERO 



Of m -Mr- 10 6 47 01817 
01806 43 10496 00000 
01813 00005 00640 
01818 00005 60630 

01824 46 02000 01300 



01836 16 10647 01859 
01848 49 10596 00000 
01855 00005 60750 
01860 00005 00630 

01878 49 02000 00000 
01886 

trftroO I O I UUH ( U I yU 5 

01898 49 10596 00000 
01905 00005 60640 
01910 00005 007^0 

01916 16 10647 61939 

0+9 28 4 'j 104 96 00000 

01935 00005 00640 
01940 00005 - 00630 — 

01946 47 02000 01100 

01958 16 10647 01901 

01970 49 10596 00000 

Ot9 77 5 00740~ 

01982 00005 50630 

01988 26 00620 00595 



02000 21 01495 00586 
02012 21 01737 00586 
02024 11 01763 00001 



02036 11 00595 00061 
02048 12 00586 00001 
02060 46 01438 01100 



02072 24 00710 00861 



o 



16000 r>NE CALCF 

16010 C VE.ZERO 

16020 BE FINISH 

160 30 TF *+l8,ADRNN 

16040 C 99999, ZERO 

16050 RE FINISH 

16060 TFLS F.ZERO 

16070 FS DF , ONE 

16080 G ADDONE 

16090 DORG *-3 



16 100* 

16110* CALCULATE F VALUES. 
1 61 20* 

16130CALCF TFLS F,VP 



16140 TF CAF1+28.ADRNN 

16150 TF CAF2+28, ADRNN 

16160CAF1 FD F, 99999 

16170 FM F ,DF 

16180 TFLS TEMPI ,FOUT 



02084 4 7 02224 01200 

02096 24 00750 00861 

02108 46 02828 01200 

02120 Z6 02138 00566 

02132 24 99999 00861 

02144 46 02828 01200 

02156 T6 10647 02179 
02168 49 105 96 00000 
02175 00005 00700 
02180 00005 00861 

02186 16 10647 02209 
0219$ 49 "T04~96 00000 
02205 00005 00690 
02210 00005 00881 

02216 49 02662 00000 

02224 



2 2 24 1 6 1 064 7 2 247 
02236 49 10596 00000 
02243 00005 50700 
02248 00005 00740 

02254 26 02306 00566 

02266 26 02468 566 

02278 16 10647 02301 
02290 49 10556 00000 
02297 00005 00700 
02302 00005 99999 

02308 16 10647 02331 
02320 49 10536 00000 
02327 00005 00700 
02332 00005 00690 

02336 16 10647 02361 
02350 49 10596 00000 
02357 00005 00630 
02362 00005 00720 



16190 FS TEMPI ,F 

16200 BP REMOVE 

1 6210 FS DF.ONE 

16220CAF2 tfls te; ip 1 , 999*09 

16230 FS TEMPI, VE 

16240 TFLS F,VE 

16250 FD F, TEMPI 

16260 Fl ! F , DF 

16270 TFLS TEMP 1 , F ( H 

16280 FS TEMP 1 , F 

16290 BNN FINISH 

1630OADDONE TF K,tY£ 

16310 TFM RET3+6.CMP11 



02368 f6 IO647-0235+ 
02380 49 10496 00000 
02387 00005 00630 
02392 00005 00700 

02398 46 02694 01 100 



02410 16 10647 02433 
02422 49 10496 00000 
02429 00005 00 690 
02434 00005 00881 

0244© 46 fG^4f 024^V 
02452 49 10596 00000 
02459 00005 00630 
02464 00005 99999 

02470 16 10647 02493 
02402 4 5- 1049C 00000 
02489 00005 00630 
02494 00005 00750 

02500 16 10647 02523 
02512 49 10596 00000 
025-1^^0005 00700 



02524 00005 00750 

02530 16 10647 02553 

02542 49 10556 00000 

02549 00005 00700 

2554 0000 5- 00 630 

O 256 16 m&tf-dtfBr 
02572 49 10536 00000 
02579 00005 607OO 
02584 00005 50690 

02590 16 10647 02613 
02602 49 1OT96 00000 
02 60 9 0000 5 00 6 30 
02614 00005 00710 



02G20 1G 10647 5 2 643 
02632 49 10496 00000 
02639 00005 60630 
02644 00005 60700 

02650 46 02828 01300 



02662 26 00601 00617 
02674 16 05246 02756 



177. 



16320 


B MT 


16330 


DORG *-3 


16340REM0VE TF K.IVP 


16*50 


FA OF, ONE 


16360 


TFM RET3+6,*+20 


16370 


- ft MT 


16*80 


OORG *-3 


16390* 

16400* ARE STEPS PUNCHED 
T64TO* 

16420CIIP11 BD *+20,C0N11 


16430 


B S TV/2 2 


16440 


DORG *-3 


1 6450* 
16460* 
1 6470* 
16480 


COMPUTE NOIN 

BTM CNOIN.0,10 


16490* 
1 6500* 
16510* 
16520 


COMPUTE REGRESSION STATISTIC 
TFM RET5+6,*+20 


16530 


B CREG 


16540 


DORG *-3 


16550* 
1 6560* 
1 6570* 
I658O 


PUNCH REGRESSION STATISTICS. 
TFM RET4+6.STV/22 


165^0 


B PST 


16600 


DORG *-3 


16610* 

16620* V/ERE STEPS PUNCHEJ. 
16630* 

16640FINISH FD FIN1 , CON 11 



02686 4? 03478 00000 
02694 

02694 26 00601 00620 

027O6 _ l6 10647 02729 
02718 49 10516 00000 
02725 00005 00690 
02730 00005 00881 

02736 16 05246 02756 

02748 49 03478 00000 

02756 

02756 43 02776 00451 
02768 49 01160 00000 
02776 

02776 17 07598 00000 

02788 16 07594 02808 

02800 45 05296 OOOOO 
02808 

02808 16 09154 01160 

02820 49 08798 00000 
02828 

02828 43 02S58 00451 



© 



176 



1 665O; 

1 oooO' 

1 6670* 

16680 
1 669O 
16700 
16710 



16720 
16730 
16740 
16750 
16760 
1&770 
I6780 



COMPUTE REGRESSION STATISTICS AMD PUNCH F f NA-t 5 T£f . 
BTM CN0IN,0,10 



C FIN, ZERO 

BE *+42 

FA OF, ONE 

TFM PST2+1 1,998,9 

TFM RET5+6,*+20 

B CREG 

DORG *-3 

TFM RET4+6,*+20 

B PST 

DORG *-3 



02840 17 07598 00000 
02852 24 00710 00861 



16790* 

16800* ARE REGRESSION STATISTICS PRINTED 
16810* 
16820FIN1 



02864 46 02906 01200 

02876 16 10647 0289^ 
02888 49 10516 00000 
02895 00005 0O69O 

\j Z.y\j\J UUUU Z> UUOO I 

02906 1 6 0917 1 00 998 
02918 16 07594 029*8 
02^30 4^ 9 05296 00000 
029*8 

02938 16 09154 52958 
O2 ^i50 49 00790 00000 
02958 



16830 

16840 

16850 

16860'' 
1 6870- 
1 6880''' 
16890* 
1 6900C ME X 

16M10 

16 ( ?20 

16930 

1 6940 



BO CMEX,C0N8, , IS PR t NT I N€ S U PP RE SS^: 

02958 43 02990 00448 

TFM RET6+6.CMEX 



B PR EG 
DORG *-3 



02970 16 08796 02990 
02982 49 08052 00000 



02990 



ARE REGRESSION STATISTICS WANTED FOR EXCLUDE 3 INDEPENDENT 
VARIABLES . 



BD *+20,COttt8 
B C; ITRA 
DORG *-3 
BTM CNOtN.0,10 
TF ICNT.N 



02990 43 03010 00458 
03002 49 03202 00000 
03010 



03010 17 07598 000S0 
03022 26 00888 00426 



o 



6 



179. 



1 ol 50 


TF! ; 


IVE.1,10 






1 6m60 






03034 16 00617 


00001 


TF 


EX 1 + 1 1 , | ND 










03046 26 3069 


00486 


16970 EX 1 


e;d 


EXMOD , 99999 




1 6^80 






03058 43 03154 


99999 


TF 


L, 1 VE 




1 6<>90 






3070 26 00604 


00617 
03102 


TFM 


RET5+6,*+20 


03082 16 07594 


17000 


p, 


CREGO 


03094 49 05248 


00000 


17010 


[)0RG 


*-3 


03102 




17020 


TFM 


RET4+6,*+20 


03102 16 09154 


03122 


17030 


B 


PST 


03114 49 08798 


00000 


17040 


DORG 


*-3 


03122 





170 50 


BD 


EXMOD, C0M8 






17060 




03122 43 03154 


00448 


TFM 


RET6+6,*+20 










03134 16 08796 


53154 


17070 


B 


PREG 




17080 






03T46 k3 08052 
03154 


00000 


DORG 


*_ 3 




17090EXMOD 


Ail 


1 VE, 1, 10 


03154 11 00617 


000 Si 


17100 


AM 


EX 1+1 1,1, 10 


03166 TT 03069 


00001 


17110 


SM 


ICNT.1,10 


03178 12 00888 


00001 


17120 


BP 


EX 1 












03190 46 03058 


01100 


17130- 








17140* 


ts transformed matrix punched. 






17150* 










17160CMTRA 


BO 


*+ 20, CON 12 












03202 43 03222 


00452 
00000 


17170 


f; 


CMRE 


03214 k9 03246 


17180 


DORG 


*-3 


03222 




17190 


TF 


PNUM.MSZ 


03222 26 OO885 


00614 


17200 


BT 


PNCH.R 


3234 27 09442 


00551 


17210* 










17220* IS 


MATRIX 


RE I MVERTEi). 






17230* 










17240C; iRE 




*+20,COM13 


03246 43 03266 


00453 



180. 



17250 
17260 



[•; FINAL 

dor:, *-3 



17270* 

17280* RE INVERT MATRIX AND PUNCH. 
17290* 

17300 TF COUNT, N 

17310 
17320 
17330 
17340RE1 
17350 
I736O 
17370RE2 
17380 
17390 
17400 
17410 
17420 



TFM K,1,10 
TF RE 1 + 1 1 , I ND 
TF RE 2+ H, J NO 
BNR *+20, 99^999 
B REMOD 

> 

DORG *-3 
BD *+ 20, 99999 
B REMOD 
DORG *-3 

TFM RET3+6,*+20 

3 MT 

DORG *-3 ■ - - 



17430REMOD AM 



17440 
17450 
17460 
17470 
17480 
17490 



AM 
AH 
SM 
BP 
TF 
BT 



K, 1 , 10 
RE 1 + 1 1 ,1 , 10 
RE2+H, 1, 10 
COUNT, 1 , 10 
RE 1 

PNUM,MSZ 
PNCM,R 



17500FINAL RNCD 



17510 
17520 



ft 
DORG *-3 



17530* * * * * * '* * 
17540* MATRIX TRANSFORMATION SUBROUTINE. 
17550* * * * * * - -* * 



03258 4 9 0345 8 00000 
03266 



03266 
03278 
3290 
03302 
03314 
03326 



26 00586 00426 
16 00601 0005 1 
26 03325 00486 



26 03345 00486 
45 03334 99999 
4 9 3 374 00000 



03334 
03334 
03346 



43 03354 99999 
49 03374 00000 



03354 
03354 
03366 



16 05246 53374 
49 03478 00000 



03374 



03374 
03386 



11 00601 00051 
11 03325 00051 



03398 
03410 
03422 



11 03345 00061 

12 00586 00051 
46 03314 01100 



03434 
03446 
03458 



26 OO885 00614 

27 09442 00551 
36 00000 00500 



O347O 49 00000 00000 

03478 



181. 



17560* 


TEST 


IF ADDING OR DELETING VARIA1 


>LE 




17570* 










175801T 


TF 


■IT1 + 11,|ND 


03478 2o 


03525 00486 


17590 


SM 


ITI+11,1,10 




03525 00001 








03490 12 


17600 


A 


MT1+11.K 


0350Z 21 


03525 00601 


17610 IT 1 


CD 


DEL, 99999 


03514 43 


3558 99999 


17620 


TFit 


GTFM1+11 ,0 








03526 16 


03851 00000 


17630 


TDM 


ca 99+ 11,1 


03538 15 


05 TOT 0000 T 


17640 




1T2 


03550 49 


03582 00000 


17650 


DOR 




03558 










17660DEL 


TFM 


GTFnl+11 ,5 




tT3S5T 50005"~ 






355^~t6 


17670 


TDM 


CA 99+ 11 ,0 


03570 15 


05101 00000 


17680 IT2 


TF 


P, K 


03582 26 


00607 00601 


17690 


TF 


0,K 


03594 26 


00610 00601 


17700CKK1 


BTM 


CADI J, 0,10 


3606 17 


04948 00000 


17710 


TF 


CKK2+28.ADIJ 










03618 26 


03682 00571 


17720 


TF 


CKK3+23.ADI J 


01630 76 


03707 00571 


17730 


TF 


CKK4+23.ADI J 


364 2 26 


03737 00571 



1 7740* 

17750* COMPUTE INVERSE OF PIVOT ELEMENT. 
17760* 

17770CKK2 TFLS TEMPI , 99999 

03654 16 10647 03677 
03666 49 10596 00000 
03673 00005 00630 
03678 00005 39999 

17780CKK3 TFLS 9 f )99 f ),0NE 

03684 16 10647 037O7 
03696 49 10596 00000 
03703 00005 99999 
03708 0000 5 00881 

177 l X)CKK4 FD 9<)999, TEMPI 

03714 16 10647 03737 
03726 4T T0556~ 00000 
03733 00005 95999 
03738 00005 50630 



n 



182. 



17800 


TF 


GTFM7+28.ADI J 


- 






03744 26 04132 0057T 


17810 


TF 


RTFM1+28 ,AD 1 J 








3756 26 04698 00571 


17820 


TF 


RTFM1+23.ADIJ 






03768 26 04693 0057 1 


17830 


TF 


CTFM2+28 ,AD 1 J 








03780 26 04844 00571 


17840 


AM 


RTFMI+23,10,10 


03792 11 0469* 00010 




17850* 








17860* GENERAL 


MATRIX ELEMENT TRANSFORMATION 




17870* 








17880GEMTFH 


TFM 


» ,1,10 






03804 16 00595 00001 


17890 


TFM 


J, 1 , 10 








03816 16 00598 00001 


17900 


TF 


ADR |J ,R 








03828 26 00576 00551 


17910GTFM1 


TFM 


StGN3,0 






03840 16 00581 00000 


17920 


C 


K,l 


• — - 








03852 24 00601 00595 


17930 


BE 


NEXT 










03864 46 04522 01200 


1 1 oJ«n 
1 / JhV 




K,J - 










03876 24 00601 00598 


17950 


BE 


NEXT 










3888 46 04522 01200 


17960 


BH 


KGRJ 










03900 46 04246 01100 


17970 


A 


StGN3,GTFMl + t1 — - • 










03912 21 00581 03851 


17980 


TF 


P,K 










03924 26 00607 00 601 


1 79:30 


TF 


, J 








3936 26 00610 00598 


18O00GTFM2 


BTM 


CAD I J ,0 , 10 • 








03948 17 04948 00000 


13010 


TF 


GTFM4+28 ,AD 1 J 


_ . .. _. 






3960 26 04072 00571 


18020 


C 


1 ,K 








3972 24 00595 0060 1 


18030 


BH 


IGRK " - 










3984 4 6 4 37 8 01100 


18040 


TF 


P, 1 










03996 26 00607 00595 


18050 


TF 


0,K 










0400 8 26 00610 00 601 










18060GTFM3 


BTM 


CAiMJ.O, 10 " " - 








04020 17 04948 00000 


18070 


TF 


GTFM41+28,ADIJ 










04032 26 04102 00571 



o 



o 



1808QGTFM4 TFLS TEMP 1,99999 



18090GTFM41 FM TEMPI, 99999 



18100GTFM7 FM TEMPI, 99999 



18110 BD GTFM5,SfC,N3 
T8120 TF GTFM6+23»ADRfJ 
~T8l30GTF. 1 6 FS 9 9 999, T EM P I " " 



18140 



B NEXT 

18150 DORG *-3 

18160GTFM5 TF GTFN8+23.ADR I J 

1 81 70GTF. 18 FA 99999, TEMPI 



18180 


B 


NEXT 


T8ttxr 


' DORG *— 3 


18200* 






18210* K 


GREATER 


THAN J. 


18220* 






182* KGRJ 


TF 


P.J 


18240 


TF 


0,K 


18250 


TF 


KGRJ 1+1 1,1 ND 


18260 


SM 


KGRJ 1+11,1,10 


18270 


A 


KGRJ1+11,J 


18280 


TF 


KGRJ 11 +11, KGRJ 1+11 



04044 16 10647 04067 

04056 49 10596 00000 

04063 00005 00630 

04068 00005 99399 

04074 16 10647 64097 
04O£6~49 T0T3^ OOOOO " 
04093 00005 80630 
04098 00005 ^9999 

04T04 16 10647 04127 
041 16 49 10536 00000 

04123 UUUU5 0U63U 

04128 00005 99999 

04134 43 04196 00581 

04146 26 04181 00576 



04158 16 10647 04181 
04170 49 10496 00000 
04177 0000 5 99999 
04T&7 00005 60630 



04188 
04196 



OOUOU 



04196 26 04231 00576 

"TJ4208 T6 10647 04231" 
04220 49 10516 00000 
04227 00005 99999 
04232 00005 00630 

04238_ 49 04522 00000 

04246 



04246 26 00607 00598 
04258 26 00610 00601 
04270 26 04349 00486 
04282" 12 04349 OOOOl 
04294 21 04349 00598 
04306 26 04329 04349 



184. 



18290KGRJ 1 1 BNR KGRJ 1 , 99999 

18300 i) GTFM2 

18310 OORG *-3 

18320KGRJ1 F'.D KGRJ 2, 99999 

18330 B GTFM2 

18340 OORG *-3 

18350KGRJ2 AM SIGN3.5.10 

183&0 B GTF! 12 

18370 OORG *-3 
18380- 

18390* t GREATER THAN K. 

18400* 

18410 1 GRK TF P,K 

18420 A SIGN3.GTFM1+11 

18430 TF t 

18440 TF IGRK1+11.IN0 

18450 SM IGRKI+11,1,10 

1 8460 - — A tG-ftKl+ttTt 

18470 TF IGRK11+11,tGRKl+1t 

1 8480 1 GRK J 1 BNR IGRK1 , 99999 

184!© fr t]TFM3 

18500 OORG *-3 

1 85 10 1 GRK 1 BD IGRK2.99999 

18520 S fiTFn? 

18530 DOPvG *-3 

18540IGRK2 AM StGH3,5,10 

18550 ft GTFMT 

I856O DORG *-3 



04310 45 043HC 9 9999 
04330 49 03948- 00000 
04338 

04 3 30 4 3 04350 39999 
04350 4 9 03948 00600 
04358 

04350 11 00581 5 5 



04 370 4^ 03948 00000 
04378 



04378 26 
04390 21 



00607 00601 
00581 03851 



04402 26 00610 00535 
04414 26 
04426 12 



04493 00486 
04493 OOOOl 



04438 21 04493 00595 



04450 26 
04462 45 



04473 04493 
04482 9999S 



04474 49 04020 00000 
04482 

04482 43 04502 99999 



04494 49 04020 00000 
04502 

04502 11 00581 00065 



04514 49 04020 00000 
04522 



18570* 
18580* SET 
185-0* 
ISbOONEXT 


UP NEXT TRANSFORMATION. 
AM AORIJ.10,10 


18610 


u 


M ! 
H , J 


T8620 






18630 


All 


J , 1 , 10 


18640 


n 


GTFM1 


T8650 




*-3 


186&0N1 


C 


N,t 


18670 


dE 


ROWTFM 


t8680 


"Arr 


1 , T , TO 


18690 


TF 


J,1 


18700 


B 


GTFM1 


18710 


"OORG 


—3 


18720* 

18730* PIVOT ROW TRANSFORMATION. 
18740* 

18750R0WTFM TF J,K 


13760 


C 


J,N 


18770 


BE 


COLTFM 


18780RTFM1 


FM 


99999,99999 


1875)0 


AM "■' 


J, 1, 10 


18800 


AM 


RTFMt+23,10, 10 


18810 


c 


ROV/TFM+12 


18820 


OORG 


*_ 3 


18*30* 

1 881*0* PIVOT COLUMN TRANSFORMATION 
13850* 

18860C0LTF i TF 1 ,K 



04522 11 
04534 24 
04546 46 
04558 11 
04570 49 
04578 
04578 24 
04590 46 
04602 11 
04614 26 
04626 49 
04634 



00576 OOOTO 
00426 00598 
04578 01200 
00598 00001 
03840 00000 



00426 00595 
04 6^4 01200 
00595 00001 
00598 00595 
03840 00000 



04634 "2^ "0059& 00 60 1 

04646 24 00598 00426 

04658 46 04732 01200 

04 670 t& TO647 04653 
04682 49 10536 00000 
0468^ 00005 99399 
04694 00005 99999 

04700 11 00598 0000 1 

04712 11 04693 00010 

04724 49 04646 00000 

04732 



04732 26 005°5 00601 



o 



186. 



18870CTFM4 


SM 


1,1,10 


18880 


BE 


CA98 


18890 


TF 


P, 1 


18900 


TF 


C:,K 


18910CTFM1 


EJT.M 


CADIJ.O, 10 


18920 


TF 


CTFM2+2*,ADIJ 


18930CTFM2 


FM 


99999, 99999 



18940 TF CTFM3+11,CTFM2+2 : l 

18950 SM CTFM3+11 ,2, 10 

18960 TF CTFM5+6,CTFM3+11 

18970 TF CTFM6+6,CTFM3+11 

l8y80CTF:-t3 BNF €TFH6, 99999 - 

18990CTF.M5 CF 99999 

1 9000 B CTFM4 

19010 OORS *-3 

19020CTFH6 SF 99999 

19030 3 CTFH4 

1fX>40 OORG *— 3 

19050* 

19060* CALCULATE ELEMENT ADDRESSES 
1 9070* 

2 



1 9080 
1 9090CADIJ 
19100 
19110 
1 9120AAA 
191 30 



OS 

c 

TF 
TF 

Si! 
BE 



C,P 

ADI J ,R 
CNTR1 ,N 
P, 1,10 

BP, 



047^4 12 00595 00051 



04756 
04768 
04780 



46 0505* tft20tf 
26 0060f «0595 
20 00 610 00601 



04?92 
04804 



17 04948-00000 
26 04839 00571 



0481 6 1 6 10 6 47 54 8 3 9 



04828 
04835 
04840 



49 10536 00000 
00005 39999 



04846 26 04905 04839 



04858 
04870 
04882 



12 04905 00052 
26 04912 04905 
26 04932 04905 



04894 44 04926 99999 
04906 
04918 



33 99999 00000 
49 04744 00000 



04926 



04926 32 99999 00000 
04938 49 047^4 00000 



04946 



04947 00002 

04948 2 2 00610 00607 
04960 26 00571 00551 
04972 26 00097 00426 



04984 12 0060? 00061 
04996 46 05040 01200 



c 



1 9 1 4o 




A n 1 1—1 C M TR 1 








UPUUO Zl UUp/U UUO.// 


1 . ' 1 PU 


SM 


CNTR1 ,1,10 




1 1 '1 60 






ncn9n 19 nnRn7 nnnfii 


p, 


AAA 










ncnao Lo nlioftii nnnnn 


i qi 7n 


DORG 


*-3 










nrrrf-n - - 

OpUHU 


1 QI RORR 


A 


ADIJ— 1 C 










nro(.n >j 1 nn (-7/1 (\t\C.\t\ 
UpUHU zl UUp/U UUOIU 


i ci i on 

i i yu 


PR 












ncnco it nnnnn nnnnn 
UjUpZ HZ UUUUU UUUUU 


1 9200 


DORG 


*-9 










- ncncL 

U5U3H 


1 93 in* 










trio. 






1 .'Z PU 








1 _'Z 1 rUl»r\ JO 


TF 


CA99+6.IND 








nc.ncL 9A nc.nQA nnLRA 

U JUpt ZV UPw,JD UUHUO 


1 .'ZpU 


SM 


Cfi"99+6,T, TO 










UpUOO 1 Z upu^o UUUU 1 


i tiffin 

1 JZOU 


A 


CA99+6.K 








ncri7R 91 nc.noA nnAni 


i 097nrft on 


TDM 


99999,0 










nc.non 1 ci oooaq nnnnn 

UpU^U lp j J J UUUUU 


t^yfto* 








1 09 00.* <sFT 

1 J Z JU J £ 1 


NEGATIVE DIAGONAL ELEMENTS 


— 7FRD 

— z.cr\u • 


1 nmn* 
1 lOUU 








1 njin 
1 J 5 lu 


TF 


CNTR1 ,N 










nclnn oZ. nnfiQ7 nnh.">(* 
Up IUZ ZO V\jO jf UUHZO 


1 y izu 


TF 


SP1+1 1,R 










- TTCTTfi. 9 A nc 1I1 'j~nn cttt~ 

Up 1 It ZO Up IH^ UUpp 1 


i a a an 


Sil 


SPl+11,2,10 










ui 1/0 iz up iny uuuuz 


1 y-tfOor I 


BNF 


SP3, 99999 










nc 1 "3ft /> /. nconL anoao 

up 1 po hh upzut yyyyy 


1 o 3cn 
I yppu 


TF 


SP2+23.SP1+1 1 




19360 






" nc 1 en 9~6 TPiTOT 0£. tlitr 


AM 


SP2+23.2.10 










05162 11 05197 00052 


19370SP2 


TFLS 


99999, ?-ER0 










05174 16 10647 55197 








05 186 49 10596 00000 








05T93 000(T5 99999 








05198 00005 00 861 


19380SP3 


A 


SP1+10.CNTR1 










05204 21 05148 00897 


19390 


SM 


CNTRI.1,10 








05216 12 00897 00001 


moo 


BP 


SPT 










05228 46 05138 01100 


19410RET3 


B 


'y)q<>a 










05240 49 99999 00000 



168. 



1 9420 


DORl, 


*-3 


19430''- * * * * * 
19440* SUBROUTINE TO CALCULATE 
19450- * * * * * 
19460* 

19470CREG0 TF P,L 


19400 


TF 


<\L 


1 9490 


BTM 


CADIJ.O, 10 


19500 


TF 


ADRNN , AD I J 


19510CREG 


TF 


CALCE+28, ADRNN 


1 9520 


TF 


CE 1+28, SIGMA 


19530 


SM 


CEl+28,10, 10 


1 9540 


A 


CE1+27.L 


19550CALCE 


TFLS 


EY, 99999 


19560 


C 


DF , ZERO 


19570 


BE 


CALCB 


19580 


FD 


EY.Of 


19590 


FM 


EY , 0BSER 


19600 


FSCR 


EY , EY 


19610CE1 


FM 


EY, 99999 



0524 8 

******** 

REGRESSION STATISTICS FOR STEP OR MOV. 
* * ****** 



05248 26 00607 00 6 04 

05260 26 00610 00604 

05272 17 04y4» 66600 

52 8 4 2 6 005 6 6 00571 

05296 26-65372 00566 

05308 26 05516 0054 6 

05320 12 0551 6 000T0 

05332 21 05515 60604 

05344 16 10647 65367 
05356 49 10596 00000 
05363 00005 00660 



05368 00005 



99999 



05374 24 00690 00861 
05386 46 05518 01200 



05398 16 10647 05421 
05410 49 10556 00000 
05417 00005 50660 
65422^06005^ 5 690 



05428 1 6 10647 55451 
05440 49 10536 00000 
05447 00605 50 66 
05452 00005 00481 

05458 16 10647 55481 
05470 4 9 10576 00000 



05477 00005 
05482 00005 



50660 
66660 



65488 16 16647 055H 
65560 49 10536 00000 
05507 00665 00 660 



1 9626* 

19630* CALCULATE COEFFICIENTS, 
1 9640* 



05512 00005 99999 
STANDARD ERRORS AND T RATIOS. 



189 



19650CALCB 
19660 
19670 
1 9680 



19690 

19700 

19710_ 

19720 

19730 

19740 



19750 
19760 
19770 



19780 
19790 
19800CA1 



19810 

19820 

19830 

19840 

19850 

19860 

19870CA2 

19880 

1 9890 

1 9900 I LL 

19910 



TFM 1,1,10 

TF RCNT.N 

TF CA 1+11,1 ND 

TF CA1++28, SIGMA 



SM CA4+28.10.10 

A CA4+27 , L 

TF CA5+28, SIGMA 



TF CA6+23,B 

TF SE 3+28, SIGMA 

TF SE4+23,SE 

TF T1+23.T 

TF T1+28.B 

TF T2+23.T 

TF T2+28.SE 

TF SETID+6.ID 

BD *+20, 99999 



B BMOD 

DORG *-3 

TF *+23,CA1+11 

BNR *+ 20, 99999 

B BMOD 

DORG *-3 

C I ,L 

BE BMOD 

BP IGRL 

TF P,l 

TF C,L 



055 T8 T6 00595 0000 T 
05530 26 00894 00426 
05542 26 05709 00486 



05554 26 05948 00546" 
05566 T2 05948 OOOTO 
05578 21 05947 00604 



05590 26 052 7 8 00546 
05602 26 0607 T 00526 
05614 26 06274 00546 



05626 26 06299 0053 1 
05638 26 06353 0O536 
05 6 5 26 06 35S 00526" 
05662 -76- 0638j 
05674 26 06388 00531 
05686 26 06396 00491 



05698 43 us/18 yyyyy 

.05710 49 06486 00000 
05718 

05741 05709 
05750 99399 
06486 OOOOO 



00595 00604 
06486 01200 
05842 01T0O"- 
00607 00595 
00610 00604 




05786 26 
05798 26 



1 9920 


BTM 


CAD I J, 0, 10 


19930 


TF 


CA3+28.ADIJ 


1 9940 


B 


CA3 


1 9950 


DORG 


*_ 3 


19960 IGRL 


TF 


P,L 


19970 


TF 


Q.l 


1 9980 


BTM 


CAD IJ ,0 , 10 


19990 


TF 


CA3+28.ADI J 


20000 CA 3 


TFLS 


TEMPI ,99999 


200 10CA4 


FM 


■- -- — 
TEMPI ,99999 


200 20 CA 5 


FD 


TEMPI ,99999 


«t i-K"* ■** 

ZOUjO ' 


--€ — - 


t,t 


20040 


BN 


CA6 


20050 


BNF 


CA55,TEHP1- 




€F 


TEHPt-2- 


20070 


B 


CA6 


20080 


DORG 


*- 3 


2O090C-A55— 


sf - 


TEMP 1-2 


20 100C A 6 


TFLS 


99999, TEMPI 



05810 17 04 9 40 00050 — 

05822 26 055t6-O0S?t 

05834 *5 05 09 OO O O O — 

05842 

05842 26 00607 00604- 

05854 26 00 6 10 00595 

058 G 6 17 0494 8 OOOOO — 

05&7& 26 5 9 1 8 05 7 1 

05890 16 ^ 0647 559 1^3— 
05902 49 10596 OOOOO 

05909 00005 00 63 — 

05914 00005 59999 

05920 16 10647 05943 
05932 4? 10536 OOOOO 
05939 00005 50630 
05944 00005 99999 — 



05950 16 10 647 55973 
05962 49 10556 OOOOO 
05969 0000 5 00630 
05974 00005 59999 



201 10* 

20120* CALCULATE SE OF B(l). 
20130* 



05980 24 00595 00604 
05 9 92 4 7 604 8 1 300 
06004 44 06036 00 62 8 
06016 33 00628 OOOOO 
06028 49 06048 OOOOO 
06036 

060 3 6 32 628 OOOOO 

06048 1 6 10647 56071 
06060 49 10596 OOOOO 
06067 00005 59999 
0607 2 0000 5 50 630 



© 



19 



20140 TF P,l 

20150 TF f,| 

20 1 60 BTM CAD IJ, 0,10 

20170 TF SE1+28,ADIJ 



06078-26 00607 005^ 
06090 2 6 610 00555 
06102 T7 04948 00000 



06 11 4 26 6 1 54 005 71 ' 

06126 16 10647 66149 
06138 49 10596 00000 
06145 00005 00630 
06150 00005 99999 



20180SE1 



TFLS TEMP 1,99999 



"TEMP 1 ,0BSER"" 



20200 FSPR TEMPI, TEMPI 



06156 16 10647 66179 
06168 45 10556" 00000 
06175 00005 60630 
06180 00005 00481 



06186 1 6 1 064 7 6 6209 
06198 49 10576 OOOCO 
06-205 00005 00630 
06210 00005 W630 

06216 16 10647 66239 
06228 49 1 05 3 6 00000 



20210 FM TEMPT, EY 



20220SE3 FD TEMPI ,99999 



2O230SE4 TFLS 99999, TEMPI 



062 35 00005 
06240 00005 



00630 
00660 



06246 16 10647 66269 
06258 49 10556 00000 
O6265 00003 00630 



06270 00005 



99999 



20240* 

20250* TEST IF EY = ZERO. 
20260* 

20270 C EY.ZERO 



20280 " 



-tst — -stm- 



06276 16 10647 66299 
06288 49 10596 00000 
06295 00005 99999 
063 00005 



06306 24 0_0660 00 8 6 1 
06318 46 06390 01200 



20290* 

20300* COMPUTE T( I ) . 
20310* 

20320T1 TFLS 99999,99999 



06330 16 10 647 56353 
06342 49 10S96 00000 
06349 00005 99999 
06354 00005 99999 



192. 



20330T2 


FD 


99999 1 99999 


20340* 

20350* SET ID. 

20360* 

20370SETID TF 


99999, 1 


20380 


AM 


CA6+23. 10,10 


20390 


AM 


SEh+23» 10, 10 


20400 


AM 


T 1 +23, 10, 10 


20410 


AM 


T1+28, 10 , 10 


20420 


AM 


1 2+23, 10,10 


20430 


AM 


T2+28, 10, 10 


20440 


AM 


SETID+6,2,10 


20450BM0D 


AM 


CA1 + 1 1, 1, 10 


20460 


Ail 


CA5+28, 10, 10 


20470 


AM 


SE3+28, 10,10 


20480 


AM 


1 ,1,10 


20490 


SM 


RCNT, 1 , 10 


20500 


BP 


CA1 



20510* 

20520* CALCULATE 
20530* 
20540 



6 3 6 16 10 6 47 6 6 3 8 3 
06372 49 10556 00000 
0*379 OOOO5- 99999 
06384 00005 39999 



0639O -26-9999*- 00595 
06402 tT 06©7 1^ «OeT© 
6 414 11 6 2 9 9 OOOTO 



OWZo rr UUU1U 

0645 11 06303 OOOTO 
06462~H~ O6388 OOOTO" 
06474 H 06356 000O2 
6 486 11 05709 00061 
06498 th QSi 
06510 I f 06274 OOOTO 
06522 11 00595 00061 



6 534 12 0O094 OOOSl 



irtoe- 



CO N STANT TERM 



20550 
20560 
20570 

20 5 80 
20590 



BO *+2G,CON7 

B CAO 

DORG >--3 

TFLS AO, ZERO 



06558 43 06578 00447 
06570 49 06616 00000 



B CSOR 
DORG *-3 



06578 

06578 16 10647 66601 
06590 *9" 10596 00000 
06597 00005 60650 
06602 00005 000 6 1 



06608 49 06992 00000 
06616 ~ 



20600CA0 TF CA01+28.SUM1 

20610 SM CA01+28i 10, 10 

20620 A CA01+27.L 

20630CA01 TFLS AO , 99999 



06616 
06628 
06640 



26-06680 
12 06680 
21 06679 



06652 16 1064 7 



20640 
20650 
20660 
20670 



TF 



TFT 
TF 
TF 



RCWT.N 

1,1,10 

CA02+1t,t"Ht> 
CA03+11,IND 



06664 
06671 
06676 



49 10596 
00005 
00005 



0054T 

oooTo 

00604 

06675" 
00000 
00 650 

99999 



06682 26 00894 00426 



20680 
20630 
20700 



Tf CA 04+28, f. 



06694 
06706 
06718 



16 00595 
26 06789 
26 06809 



00001 
00486 
00486 



TF 
C 



CA05+28.SUMT 
L,t 



20/10 

20720CA02 
20730 



E5D 
ET 



CAM 00 ^ 

CA03, 99999 
CAMOO 



06730 26 06846 00526 
06742 26 06876 00541 
06754 24 00604 00595 



2U/4U 

2075OCA03 
20760 
"20770 
2078OCAO4 



umx 

BNR 



06766 
06778 
06790 



46 06920 
43 06798 
49 06920 



01200 

39999 

00000 



~*=3 

*+20, 99999 
CAt-tOO 

-*=r 



TFLS TEMP 1,99999 



2079OCA05 FM TEMPI, 99999 



20800 



■fS AO-.-TEtlPT 



06798 

06798 

06810 

06818 

06818 
O683O 
06837 
06S42 

06848 
06860 
06867 
06872 



45 06818 99999 
49 06920 00000 



16 10647 6841 
49 T0596 00000 
00005 OO630 



16 10647 06871 
49 10536 00000 
00005 00630 
00005 99999 



06878 
O6890 
06897 
069O2 



16 10647 66901 
43 104% 00000 
00005 OO65O 
00005 50630 



194- 



20810 AM 

20820CAH0D AM 



20830 

20840 

20850 

20860 

20870 

20880- 
20890* 
20900* 
2O91OCS0R 

20:720 - 

20930 

20 940 

20950 -~ 

20960S0R1 



AM 
AM 
AM 
SM 
BP 



CA04+28,10,10 
CA02+11 , 1 , 10 
CA03+1 1,1,10 
CA05+28.10, 10 
1,1,10 
RCNT,1,10 
CA02 



06900 11 06046 000T0 
06920 t1" 06789 0000 X 

06932 ti - 06809 00061 

06944 11 0607 6 OOOTO 



0695^ H 00595 0000" t 

06968 12 00894 eee§i 

6 9 8 4 6 6 778 01 100 



CALCULATE SUM OF SQUARED RESI&UALS, 

TF SQR1+28,ADRNN 
TF S^R2^t8,S-HiMA 

SM SCR2+28.10, 10 

A SCR 2+27, L 
— TF Sefi- 3 + 2 0,SO R2 +2 — 



06992 26 07080 00566 



07004 26 07110 00546 
07016 12 07110 OOOTO 
070 2 8 21 0710 9 604 



TFLS SCR, 99999 



20970S0R2 FM SfR, 99999 



2 980S OR 3 F+4 S-fiRy 99999 



20990 



FM SPR.OBSER 



21000* 

21010* CALCULATE RSQR . 
2 1020* - 



21030 
21040 



TF 

SM 



CR 1+28, SIGMA 
CR1+28, 10, 10 



07040 26 07140 07110 



07052 16 10647 67075 
07064 49 10596 00000 
07071 00005 60680 
07076 00005 99999 



07082 16 106 47 671 5 
07094 49 10536 00000 
O/1O1 00005 00 boO ~ 
07106 00005 99999 



07112 16 10647 67135 
u/12HTf9 IO530 00000 
07131 00005 60680 
071^6 00005- 99 9 99 



07142 16 10647 67165 
07154 49 10536 00000 
07 1 DrDOOOb uudou 
07166 00005 60481 



07172 26 07248 00546 
0718** M 07248 OOOTO 



© 



21050 


A 


CR1+27.L 


07196 21 07247 


00 604 


21060 


TF 


CR2+2S,CR1+28 


07208 26 07278 


07248 


21070CR1 


TFLS 


TEMPI ,99999 










07220 16 10647 
072 32 49 10596 
07239 00005 
07244 00005 


57243 
00000 
50630 

99999 


21080CR2 


FM 


TEMPI ,99999 


07250 16 10647 
07262 49 10536 
07269 00005 
07274 00003 " 


57273 
00000 
50630 


21090 


BD 


*+20,C0N7 


07280 43 07300 


00447 


21100 




CR4 


07292 49 07438 


00000 


21110 


DORG 


*-3 


07300" 




21 120 


TF 


CR3+28,SUM1 










7 300 2 6 7 376 


00541 


21130 


SM 


CR3+28, 10, 10 










073T2 t 2 7 376 


000T0 


21 140 


A 


CR3+27.L 


07324 2T 07375 


00604 


21150 


TF 


CR35+28.CR3+28 


07336 26 07406 


07376 


21 160CR3 


TFLS 


TEMP2, 99999 








07348 16 10647 
07360 4? 10596 
07367 00005 
07372 00005 


57371 
00000 
0TT640 

99999 


21170CR35 


FM 


TEMP2, 99999 


07378 16 10647 
07390 49 10536 
07397 0000 5 
07402 00005 


57401 
00000 
50640 


21 1 80 


FS 


TEMP 1 , TEMP2 


07408 16 10647 
07420 4y 10496 
07427 00005 
07432 00005 


67431 
00000 
50 630 
60 640 


21190CR4 


FM 


TEMPI , OPS ER 










074*8 1 6 10647 
07450 49 10536 
07457 00005 
07462 00005 


57461 
00000 
60630 
60481 


21200 


TFLS 


TEMP2,Sf R 










07468 T6 T0347 
07480 49 10596 


5749T 








00000 








07487 00005 


60640 








074^2 00005 


60 680 



I 



21210 FL) TEMP2, TEMPI 

074f'8 1-6 10647 67521 

07510 43 10556 00000 

07517 00005 60640 

07522 00005 50630 

21220 TFLS RSQR , ONE 

07528 16 10647 67551 

07547 00005 60 670 
07552 00005 6088 1 

21230 FS RSQR.TEMP2 

07558 16 10647 57581 
07570 49 10496 00000 

fO 1 I UUUUy UU O/V 

07582 00005 50640 

21240RET5 3 99999 

07588 49 99999 00000 

21250 DORG *-3 

07596 

21260* * * * * * * • * - 



21270- SU 


BROUTINE TO CALCULATE NO I II. * 




21280* * 




-k ~k -k 




21290 


DS 


2 


07597 00002 


21 300CN0I N 


TFM 


NO IN, 0,9 


fr759S-t-6-00891 00500 


21310 


TF 


CN1+1 1 , IND 








07610 26 07645 00486- 


21320 


TF 


CNTR1 ,N 


07622 26 00897 00426 


213'OCNI 


BD 


"+20,99999 


076 ^4-43 07654 99999 


21340 


B 


CNMOD 


07646 49" 07 6 98 00000" 


21350 


DORG 


*-3 


07654 


21360 


TF 


CN2+11 ,CN1+11 


0^7654 26 O7077 07645 


21370CN2 


BNR 


"+20,99999 


07666 45 07686 99999 


21380 


B 


CNMOD 


07678 49 07698 00000 


213 » 


DORfi 


*-3 


"07686 ■ 


21400 


AM 


NOIN, 1 , 10 








07686 11 00891 00001 


21410CNM0D 


AM 


CN1+1 1,1,10 


07698 11 07645 00001 


21420 


SM 


CNTRI.1,10 


07710 12 00037 00051 


214*0 


BP 


CN 1 


07722 46 07634 01100 


21440 


BB 




07734 42 00000 00000 



197. 



21450 DORG *-y 

21460HDNG0 [)AC 21,DEP VAR - 

21470HDNG1 DAC 18.STD ERR Y.X 

21480HDNG2 DAC 18, R SQUARED 



= (5) 
= (5> 



21490HDNG3 DAC 18, SUM SfR RES = @> 
2150OHDNG4 DAC 21 • I NO VAR USED = 
21510MDNG5 DAC 18, CONSTANT TERM = @ 



21520HDNG6 DAC 16, VAR 
21530HDNG7 DAC 28, 
21540* 



COEFFS 
STD ERR 



2\bbU 
21560* 
21570PREG 

2T580 

21590 

21 600 

2T6TO 



SUBROU TI NE T O P RIN T REGRESSION 

* * * * * * 

■RCTY 

RCTY " 

~WATY HDNGO 

BT WRNUM.L 
RCTY 



07736 

07737 00021 

07779 00018 
7 815 000 1 8 

07851 00018 

07887 00021 
7 92 9 000 1 8 

07965 O0016 

T RATI 0© 

07997 00028 

* * * * 

S T A T IS T ICS. * 

* * * * 

q_8052_ 34 00000 00102 

08064 34 00000 00 102 

08076 39 07737 00100 

08088 27 9532 00604 

08100 34 00000 00102 

08112 39 07779 00100 

08124 16 10647 58147 
08136 49 106T6 00000 
08143 00005 09580 
08 1 48 00005 00660" 

08154 39 10447 00100 

08166 34 00000 00 tO 2 

' " 08T78 39" 07815 00"100 

08190 16 10647 68213 
08202 49 10616 00000 
08209 00005 59580 
08214 00005 50670 

08220 39 10447 00100 

08232 34 00000 00102 



21620 
21630 



WA I Y HUNG I 

BTFS FLTF IX, EY 



21640 WA TY OUTPUT-20 

21650 RCTY 

21660 WATY HDNG2 

21670 BTFS FLTF IX ,RSQR 

2rt80-"- WATY OUT PUT-20 — 

21690 RCTY 



21700 
21710 

21720 - 

21730 

21740 

21750 

21760 

21770 

21780 

21790 

21800 

21810 

21820 

21830 

21840 

21850 

21860 

21870 

21880 

21890 

21900 

21910W1 

21920 

21930W2 



WATY 
BTFS 



HDNG 3 

FLTFIX,SC : R 



--WA^Ff-QUf PUT - 20 
RCTY 
WATY 

■-BT-- -■ 
RCTY 
RCTY 

-WAT-Y- IIDNG5 

BTFS FLTF I X , AO 



00244 3 9 07051 00100 

©8256 t6 10647 08279 
08268 49 10616 00000 

0827 5 0000 5 1~ 

08280 00005 CO 680 



WATY 
RCTY 
RCTY 



OUTPUT-20 



WATY 

WATY 

RCTY 

TF 

TF 

TF 

TF 

TF 

BT 

TBTY 

BTFS 



HDNG 6 
HDNG7 



CNTR1 ,NOIN 
W1 + 11 , ID 

W2+28.B 



W3+28,SE 

W4+28.T 

WRNUil,99999 



FLTF IX, 99999 



08286 39 10447 00100 
08298 34 00000 00102 



08310 39 07887 00100 



08322 27 09532 00891 



08334 34 00000 00102 
08346 34 00000 00102 



08358 39 07929 00100 

08370 16 10647 58393 
08382 49 1061 6 00000 
08389 00005 59580 
003 9 4 00005 50650 



08400 35 10 447 00100 
08412 34 00000 00 10 2 
00424 34 00000 00102 



08436 39 07965 00100 
08448- 39 07997 00100 : 
004 6 O 34 00000 00102 



UoH/ z its 00097 00091 
08484 26 06543 00491 
00496 26 00504 00526 
08508 26 086 38 005 3K 
085 20 26 08692-00556 
00532 27 09532 99999 



O8544 34 OOOOO 00108 

08556 16 10647 68575 
O8568 49 10616 OOOOO 
00575 00005 59500 



O858O 00005 



99999 



19 



21940 WATY OUTPUT-20 

21950 TBTY 

21960W3 EiTFS FLTF IX, 99999 



21970 WATY OUTPUT-20 

21980 TBTY 

2 I9 90W4 R TF S FL TF I X , 99999 



O8586 

08598 

08610 
08622 
U8629 
08634 

08640 

08652 



3TT T0447 

34 00000 

16 10647 
49 10616 

00005 

00005 

39 10447 

34 00000 



00100 

00108 

68633 
00000 
09580 

99999 

00100 

00108 



08664 
08676 
08683 
08688 



16 10647 
45 10616 
00005 
0OOO5 



S8687 
00000 

69580 

99999 



22000 


WATY 


OUTPUT-20 


22010 


RCTY 




22020 


AM 


WI+11,2,10 


22030 


AM 


W2+28.10.10 


22040 


AM 


v/3+28, 10, 10 


22050 


AM 


W4+28.10.10 


22060 


SM 


CNTRI.1,10 


22070 


BP 


W1 


22080RET6 


B 


99999 


22090 


DORG 


*-3 



08694 39 1 044 7 00100 
08706 34 00000 00102 
08718" 
~ 8 7 30 1 1 U8584 UUUT O" 



22100* * * * * * * ■> 
22110* SUBROUTINE TO PUNCH STEP RESULTS, 
22120* * * * * * * * 
22130PST AM PST2+11.1.10 

22140 TF"~ 0OT-77,PST2"*1T 

22150 TF 0UT-74.L 

22160 TF OUT-71.N0 IN 

22T70 TF 0tfT^68,11 

22180 TFLS 0UT-50.A0 



08742 
08754 
08/66 
08778 
08790 
8 79 8 



08798 
08810 
08822 
08834 



11 08638 

11 08692 

12 0089/ 
46 08532 

49 99999 



000T0 
000T0 

00001 
01100 
00000 



11 09171 

26 00753 
26 00756 
26 00759 



00001 
09171 
00 604 
00891 



08846 26 00762 00426 



O8858 
08870 
0887 7 
O8882 



16 10647 
49 105-16 
00005 
00005 



08881 

goooo 

00780 
OO65O 



200. 



22190 

22200 

22210 

22220 

22230 

22240 

22250 

22260 

22270 

22280CD 

22290 

22300 

22310 

22320 

223*0 

22340 

22350 

22360RET4 

22370PST2 

22380 

22390 



TFLS OUT-40 , RSC R 



TFLS 0UT-30.EY 



TFLS 0UT-20.F 



TFLS 0UT-10,Sf ; R 

TFM BR+6,*+20 

B PST2 

DORG *-3 

TF COUNT, N 

TF CD+6.IND 

WNCD 99999 

AM CO+6,80,10 

SM COUNT, 80, 10 

BP CD 

AM PST2+23.1.10 

BT MOVER, B 

BT MOVER, SE 

BT MOVER, T 

B 99999 

,TFM OUT-4,0,9 



TFM, 0UT,1,£ 
WNCQ OUT-79 



00000 16 10647 00911 
08900 49 1 0596 00000 
08907 00005" 00790 
08912 00005 00670 



08918 16 10647 58941 



009=30 49 10596 00000 



08937 00005 
ooy*f 2 vuw 3 



(50800 
00 bw 



08948 16~»0£4? 6fi9?t 
08960 49 10596 00000 
896 7 00005 08 1 



08972 00005 50700 

08978 16 10647 09001 

08997 00005 00820 
09002 00005 O O 68 O 



09006 16 09214 §9028 
09020 49- 09160 00000 



09020 



0902 8 26 5 06 00426 
09040 26 09058 00486 



09052 38 99999 400 



09064 11 O9O50 OOODO 
09076 _ 1 2" 00586 OOOBO 



09000 46 09052 01100 



0910© 
09+12 



■tt-0318 3 00051 
27 09*20 00 526 



09124 27 9 220 00531 
09136^ 27 09220 00536 
09148 49 ^959^ 00000 



091 6 16 00026 00500 



09172 
09184 



16 00830 00001 
38 00751 00400 



201- 



22400 AM P$_T2+2*, 1,10 

22410BR B 99999 

22420M0VER TF MV4+28,MAD 

22430MAD DS ,M0VER-1 



22530 
22540 



09196 tr 09783 0006 r 

09208 1*9 99999 00000 
09220 26 09340 092T9 



22440 TF TEMPI, NO IN 

224 501 W1 CM TEMP 1,7, 10 
22460 BP MV2 



09219 00000 

09232 26 00630 00891 
0924# t4 0063C 00067 



22470 TF COUNT, TEMPI 

22480 B MV3 

22490 DORG *-3 



09256 46 09288 01 1 
09268 26 00586 00630 
~0928a 49-09300 OOOOO 



22500MV2 TFM COUNT, 7, 10 
22510MV3 TFM MV4+23, OUT-70 
22520MV4 TFLS 99999,99999 



9288 

TO88 t£ 005B6- 00067 
— 09300 16 09*35 50760" 



AM MV4+23,10, TO 
MV4+28, 10, 10 



09* 1 2 1 6 1064 7 593*5 
09324 49 10596 OOOOO 
09331 00005 99999 
093*6 00005 99999 

09342 11 09335 OOOTO 



22550 
22560 
22570 



22580 
22590 

22600 

22610 
22620 
22630 



-m — 

SM COUNT, 1,10 
BP 

-TFM — BR+6,*+2 



09354 11 
09366 12 
09378 46 



09340 000 TO 
00586 00001 
09312 01100 



8 PST2 
&ORG *-3 
~§ti TE M PI ,7, 1 



DP MV1 
BB 

DORG * -9 



09390 16 
09402 49 

09410 

09410 12 
09422 46 
09434 4 2 



09214 09410 
09160 OOOOO 

00630 00057 
09244 01100 
OOOOO OOOOO 



09436 



22640* * * * 
22650* PUNCH SUBROUTINE. 
22660* * * * 



202. 



22670 
2268opnch 

22690 
22700 

22710PNCH1 

22720 

22730 

22740 

22750 

22760 

22770 

22780WRNUM 
■ 22790N0 
22800 
22810 
22820 



OS 5 
WNCD 402 

TF PNCH 1+6, PNCH-1 
SM PNCHI+6,9,10 



WNCD 99999 

AM PNCHI+6,80, 10 

SM PNUM.8,10 

BP - PNCH1 

BB 

DORG *-9 

DS 4 

TF OUT, NO 

DS .WRNUM-1 

CF OUT-1 

V/NTY OUT-1 

BB 



09440 00005 

■ 09454 ■ 2o 09484 09441 
9 466 12 9 484 OOO69 



09W^8 
9 5 2 12 00 88 5 0005 8 



773 t*t \jytf € 

9 52 6 42 OOO O O O OOOO 
0952 8 



. ftproi rtnnn fi 

Xjy? pi UUUUh 

09532 2^ 0O83& 05534 
09531 00000 



05544 33 
09556 38- 00829 00100 



22830 



DORG *-9 



09560 42 00000 00000 



09570 



10 

ARG-9 

, FLTF « X-1 



0957 9 01 



22840* 

22850* SUBROUTINE FOR PREPAfi t N6--9ATA FOR- Ai . PI I AMER I CAL ~ PR I NT I N G OR 
22860* PUNCHING. INTERNAL FORMAT IS S PS I I . 

228fO* * 

22880 DS 

22890FLTFIX CF 

22900ARG DS 

22910 

22920 

22930 



OUTPUT, SEVENS 

OUTPUT-9 

0UTPUT-10,DCMAL 



095-8&-33- 09570 O OOOO 
09579 OOOOO 



U9532 26 10*67 tW9- 
09604-^* 1045 



22940 
22950 
22960 



TFM OUTPUT-19,0,9 
TFM SIGN, 0,10 
BNF JUMP.ARG-2 



09616 26 10457 10409 
0962& 16 104*8 00600 
096 4 t6 104itt OOOOO 
09652 44 09600 09577 



o 



22970 _ 
22980 
229 'JO JUMP 
23000 



td; 

CF 

CM 
HE 



SIGN-1 ,2,11 

ARG-2 

ARG, 99, 1011 
WRALPH 



23010 
23020 
23030 



CM 

BNP 

CM 



ARG ,0 , 10 

DEC I ML 
ARG, 4, 10 



23040 
23050 
23060 



BH 

TFM 

TFM 



LARGE 

TRNMT+1 1 ,ARG-9 
*+42,0UTPUT-10 



09664" T5 TO 4 90 00002 
09676 33 09577 00000 
09688 14 09579 00099 
09700 46 10U24 0T20TT 
09712 14 09579 00000 
09724 47 10070 01100 
U9/36 14 U95/9 0UUD4 
0974& 46 10150 OTTOO 
U576U 16 09819 09570 
Uy//2 16 09814 TU45/ 
09784 22 098T4 09579 
097% 72 09814 0957? 



23070 
23080 

23090TRNMT 



S 
S 

TD 



*+30,ARG 
*+l8,ARG 

99999,99999 



23100 AM TRNMT+1 1,1, 10 

23110 AM TRNMT+6,2,10 

23120 CM TRNMT+6,0UTPUT-12 



23130 BNH TRNMT 

23140 TF WR I TE+23, TRNMT+1 1 

23150 TFM EXPNT2,5 L 10 

23160 S EXPNT2.ARG 

23170 TFM *+47, SEVENS 

23180 S *+35,EXPNT2 

23190 S *+23,EXPNT2 

23200 A OUTPUT-1 2,99999 

23210V/RITE TFM *+1 8, 0UTPUT-8 

23220 TD OUTPUT-8,0 



oy8o8 25 99999 yyyyy 
09820 11 09819 000(31 
09832 11 09814 0000*2 
09844 14 09814 T0455 
09856 47 0980B 01100 
09868 26 09975 0981 9 
09880 16 10493 UUU05 
09892 22 10493 09579 
09904 16 09951 T0479 
09916" 22 09951 1049V 
09928 22 09951 10493 
09940 21 10455 99999 
09952 16 uyy/O T0459 
09964 25 10459 00000 



204. 



23230 AM 

2 3240 AM 

21250 CM 

23260 BNH 



V.'R I TE+23, 1 ,10 



V7RI TE+18,2, 10 
WR I TE+1 8, OUTPUT 
WR I TE+1 2 



09 9 76 11 3 975 0000~1 



23270WRALPH BD 
23280 B 
23290 DORG 
23*00SETZR0 TDM 
23310 TF 
23320 BB 
23330 DORG 
23340DECIML CM 
23" t 50 BNH 
23360 TFM 
23^70 TFM 
23380 S 
23390 S 
23400 B 
23410 DORG 



SETZR0.0UTPUT-18 
SETSIG 

OUTPUT, 
0UTPUT-20.SIGN 



ARG, 4, 1011 
LARGE 



WRITE+23.ARG-9 
WRITE+18.0UTPUT-8 
V/R I TE+1 8, ARG 



09588 \r 09970 ooo02 

tOOOO O597O- T0467 
10012 47 996 4 01100 



10024-43 
100 36 45" 10 356 OOOOO 

-ieekk 



1 00 44 15 10 46 7 OOOOO 
1005 6 26 1 4 47 104 91 
100 68 42 OOOOO OOOOO 



10070 

10070 14 09579 00004" 
10082 47 10150 01100 



10094 16 09975 59570 
10106 16 09970 T0459 
10110 22 09970 09579 



V/R I TE+1 8, ARG 
WR I TE+1 2 
*-3 



23420LARGE TF 

23430 BNF 

23440 TFM 

23450 CF 

234 60 CF 

2 3470 JUMP 2 TD 

23480 TD 

23490 CF 



OUTPUT-1 7 .SEVENS-7 

JUMP2.ARG 

OUTPUT-20,20,10 



ARG 

OUTPUT-1 9 
OUTPUT-1 6, ARG 



OUTPUT-1 8.ARG-1 
0UTPUT-18 



10130 22 09970 09579 

iuthz Hy 099ot OOOOO 
10150 



101 pO ZtJ 
10162 44- Wttt 65575 - 
10174 16 10447 00020 



1 f\ 1 Q_£. 3 3 ft AT -J r\ ftAftAft 

1019B 33 10448 «OOOe 

10210 25 10451 09579 

10222 25 10449 09578 

10234 3* 10449 OOOOO 



205 



23500 


TF 


0UTPUT-12.SIGN 


23510 


CF 


OUTPUT-13 


23520 


TFM 


V/R+1 1 ,ARG-<_) 


23530 


TFM 


V/R+6.0UTPUT-8 


23540V7R 


T'J 




23550 


AM 


V/R+1 1,1, 10 


23560 


AM 


V/R+6,2,10 


23570 


Cfl 


WR+6, OUTPUT 


23580 


BNH 


WR 


23590 


BB 




23600 


00RG 




23610SETSIG 


TFM 


SETS+1 1 , OUTPUT- 


23620SETS 


BD 


SET, OUTPUT-1 6 


23630 


AM 


SETS+1 1,2, 10 


23640 


B 


SETS 


23650 


DORG 


*_ 3 


23660SET 


TF 


*+30,SETS+11 


23670 


SM 


*+l8, 2,10 


23680 


TF 


99999.SIGN 


23690 


BB 




23700 


DORG 


*-9 


23710 


DAS 


14 


237200UTPUT 


DS 


2 


23730 


DAC 


1 


23740SEVENS 


DC 


10,7070707070 


23750DCMAL 


DC 


10,000000000 3 


23760S 1 GM 


DS 


2 



10246 26 10455 10491 
10258 33 10454 00000 
10270 16 10305 09570 
TO282 16 T0300 T0459 
10294 25 99999 99999 
10306 11 10305 00051 
T03T8 TT TO 300 00007 
10 330 14 10300 10467 
10*42 47 10294 01100 
10*54 42" 00000 00000 
10356 

10356 1 6 10*79 T0451 
10368 43 10&00 1045 T 
10 380 11 10*79 00052 
10392 43 10*68 00000 
TO 400 

10400 26 10 430 10379 
10412 12 10430 00002 
10if24 26 95999 TO 491 
10436 42 00000 00000 
10438 

10439 00014 
10467 00002 
10469 00001 
10479 000 TO 
10489 00010 
10491 00002 



O 



206. 



23770EXPNT2 DS 2 
2 3780 DAC 1,0 

23790 DEND START4 

LOAD SUBROUTINES 



10588 49 10740 



10493 60002 



10495 00001 
OO8S8 



10508 
10516 
10528 

10536 
10548 
10556 
10568 
10576 



+6— H050 ^Fl508" 

49 10636 

16 11050 T1552 

43 106*6 

16 11050 T2052 

49 10636 

16 H050 

49 10636 

16 11050 T2628 



10596 16 110*50 T3208 
10608 4 9 10 740 
106+6 16 1 1050 T3240 

10628 49 10740 



o 



END OF 


PASSI 1 


00402 


CONT 


00420 


INVAR 


0043^ 


NOCON 


00443 


C0N3 


00448 


CONS 


00453 


CON 13 


00458 


CON 18 


00501 


*F0RMAT 


00526 


B 


00551 


R 


00576 


ADR |J 


00595 


1 


00610 





00640 


TEMP2 


00600 


OF 


00740 


VP 


00861 


ZERO 


OOSyi 


NO | N 


00904 


S TV/ 


01318 


STV.'23 


01 6^0 


STV/5 


02000 


STMOD 


02604 


"REiiOVE 


03058 


EX 1 


3334 


RE2 


03 £ :58 


i)EL 


03714 


CKK4 


04044 


GTFM4 


04208 


GTF!18 


04378 


IGRK 


04578 


N1 



00407 


DATE 


0042* 


MOVAR 


00437 


NCOL 


00444 


COM4 


00449 


CON<) 


00454 


C0N14 


"0481 


OBSER 


00506 


INDEX 


00531 


SE 


00556 


WT 


00581 


SIGN3 


00598 


J 


00614 


MSZ 


00650 


AO 


00700 


F 


00750 


VE 


00871 


ZEROS 


0n8'„)4 


RCNT 


010 30 


S TV/ 1 


01438 


STV721 


01680 


STV/6 


02224 


CALCF 


02756 


CM P1 1 


03154 


EX MOD 


03374 


REMOD 


03582 


MT2 


03804 


*GENTFM 


04074 


*GTFM4 1 


04246 


KGRJ 


04462 


* IGRK 11 


04634 


*ROWTFM 



00400 


PR OB 


00426 


N 


00440 


NELIM 


00445 


C0N5 


00450 


C0N10 


0045 1 ; 


C0N15 


00486 


1 ND 


00511 


CONST 


00536 


T 


00561 


ADKK 


00586 


COUNT 


00601 


K 


00617 


1 VE 


00660 


EY 


00710 


FIN 


00830 


OUT 


00881 


ONE 


008°7 


CNTR1 


01112 


STV/2 


01468 


STW3 


01710 


STV/7 


02278 


CAF1 


02828 


*F 1 N 1 SH 


03202 


CMTRA 


03458 


FINAL 


03606 


CKK1 


03840 


GTFM1 


04104 


GTFM7 


04318 


*KGRJ1 1 


04482 


IGRK1 


04 670 


RTFM1 



00414 


NODS 


00429 


NDEP 


00441 


C0N1 


00446 


C0N6 


00451 


C0N1 1 


00456 


CON 16 


0049 1 


1 D 


005T6 


DATA 1 


00541 


SUM 1 


00566 


ADRNN 


00580 


CNTR 


00604 


L 


00620 


1 VP 


006 70 


■RsrR 


00720 


FOUT 


00841 


FP001 


OO885 


PNUM 


00898 


-START4 


01 160 


S TV/22 


0~T590 


S TV3 1 


01752 


STV/8 


02440 


CAF2 


02^58 


FIN1 


03246 


CMRE 


03478 


MT 


0*654 


CKK2 


03948 


GTFM2 


04158 


GTFM6 


04338 


KGRJ 1 


04502 


1 GRK2 


04732 


"COLTFM 



00417 NFORM 

00432 *NOTRAN 

00442 C0N2 

00447 C0N7 

00452 CON 12 

00457 C0N17 

00496 IDD 

00521 DATA 2 

00546 SIGMA 

00571 ADIJ 

00592 CTR 

00 607 P 

00630 TEMPI 

00680 srR 

00730 HIGH 

00851 FHIGH 

00888 MCNT 

00970 DF1 

01196 STW24 

01 626 STW4 

01886 NEG 

02662 *ADDOME 

02990 CMEX 

0^14 RE 1 

03514 MT 1 

03684 CKK3 

04020 GTFM3 

04106 GTFM5 

04358 KGRJ2 

04522 NEXT 

04744 CTFM4 



04792 CTFM1 

04948 CADU 

05138 SP1 

05206 CREG 

05750 CA2 

05950 CA5 

06246 SE3 

6486 BMOD 

06818 CA04 

07082 STR2 

07378 CR35 

07666 CN2 

07851 HDNG* 

08052 PREG 

08790 RET6 

09208 BR 

00300 MV 3 

00531 NO 

09952 WRITE 

10210 JUMP2 
10467 *0UTPUT 



04816 CTFM2 

04984 AAA 

05174 SP2 

05344 CALCE 

05786 ILL 

06036 CA55 

06276 SE4 

06616 CAO 

06848 CA05 

07112 S0R3 

07438 CR4 

07698 CNMOD 

07887 HDNG4 

08532 V/1 

08798 PST 

09220 MOVER 

09312 MV4 
09580 "FLTF I X 
10024 *WRALPM 

10204 V/R 
10470 *S EVENS 



04894 


' CTFM3 


05040 


BB 


05204 


SP3 


05488 


CE1 


05842 


IGRL 


06048 


CA6 


06330 


TT 


06652 


CA01 


06020 


CAMOD 


07220 


CR1 


07588 


RET5 


07737 


HDNGO 


07929 


HUNG 5 


O8556 


VI 2 


09052 


CD 


00219 


MAD 


09442 


PNCH 


OS579 


ARG 


10044 


*SE"TZRO 


10356 


*SETSIG 


10480 


DCMAL 



045CT6 CTFM5 

05054 CA08 

05240 RET3 

05518 CALCB 

05800 CA3 

06126 SE 1 

06360 T2 

06778 CA02 

06902 CSCR 

07250 CR2 

07598 CNOIN 

07779 HDNG 1 

07965 HDNG 6 

08610 V/3 

09148 RET4 

09244 MV1 

09478 PNCM1 

09688 JUMP 
10070 *OECTML 

10368 SETS 

10401 SIGN 



04926 


CTFM6 


05000 


CA99 


05248 


CREGO 


05698 


CA 1 


05920 


CA4 


06156 


SE2 


063°0 


SETID 


06798 


CA03 


07052 


SCR 1 


07348 


CR3 


07634 


CN1 


07815 


HDNG2 


07997 


HDNG 7 


08664 


W4 


00160 


PST2 


09288 


MV2 


00532 


WRNUM 


09808 


TRNMT 


10150 


LARGE 


10400 


SET 


10403 • 


"EXPNT2 



00010" PROGRAM 30-4B, ;IDV REGRESSION, OCT. 10, n63. 
00020* 



00030 


DORG 


402 


00402 




00040C0MT 


DSS 


30 


00402 


00080 


00050DATE 


OS 


6.C0NT+5 












0O4O7 


00006 


000 60 PR OB 


DS 


2.C0NT+7 


00409 


00002 


00070N0BS 


DS 


5,CONT+12 










00414 


00005 


00080NFORM 


OS 


3.CQMT+15 


00417 


0000 3 


000 SO INVAR 


OS 


3.C0NT+18 










00420 


00003 


00100M0VAR 


DS 


3,C0NT+21 










00423 


00003 


001 ION 


DS 


3.C0NT+24 






- 




00426 


00003 


0012nNDEP 


DS 


3.C0NT+27 


00429 


00003 


00130N0TRAN 


DS 


3.C0NT+30 


00432 


00003 


00140N0C0N 


DS 


3.CONT+33 













00435 


0000 3 


00150NCOL 


DS 


2.C0NT+35 








00437 


00002 


00160NELIM 


DS 


3.CONT+38 










00440 


00003 


00170C0N1 

• - - 


DS 


1,C0NT+39 











00441 


00001 


00180C0N2 


DS 


1 , CONT+40 










00442 


onooi 


00190CON3 


DS 


1.C0NT+41 








00443 


00001 


00200C0N4 


DS 


1,C0NT+42 












00444 


00001 


00210CON5 


DS 


1 , C0NT+43 








00445 


00001 


00 2 20 CON 6 


DS 


1.C0NT+44 


00446 


00001 


00 2 30 C0N7 


DS 


1 ,C0NT+45 












00447 


00001 


00240C0N8 


DS 


1.C0NT+46 










00448 


00001 


00250CON9 


DS 


i .CONT+47 










00449 


00001 


0026OC0N10 


US 


1 ,C0NT+48 


00450 


00001 


00270CON1 1 


DS 


1 ,C0NT+4y 


00451 


00001 



o 



00 280C ONI 2 


DS 


1 .COMT+50 


00290C0N13 


DS 


1 .CONT+51 


00300C0N14 


DS 


1.C0NT+52 


00310CON15 


DS 


1.C0NT+53 


00320C0N16 


DS 


1.C0MT+54 


00 V,0C0N17 


DS 


1.COIIT+55 


00340CON18 


DS 


1.C0MT+56 


00 3500BSER 


DS . 


10.C0NT+79 


00360 1 NO 


DS 


5 


00 3701 D 


DS 


5 


003801 DD 


DS 


5 


00390FORMAT 


DS 


5 


00400 INDEX 


DS 


5 


00410C0NST 


DS 


5 


00420DATA1 


DS 


5 


0043ODATA2 


DS 


5 


004403 


DS 


5 


00450SE 


DS 


5 


00460T 


DS 


5 


00470SUM1 


DS 


5 


00480SIGMA 


DS 


5 


00490R 


DS 


5 


00500WT 


DS 


5 


00510ADKK 


DS 


5 


00520ADRNN 


DS 


5 


00530ADIJ 


DS 


5 



00452 00001 

00453 00001 

00454 00001 
"0045^ 0000 T 

00456 00001 

00457 00001 

00458 0000 T 
00481 00010 
00486 00005 

001*91 00005 

00496 00005 
00501 00005 
0050 6 00005 
00511 00005 
00516 00005 
0O521 00005 
00526 00005 
00531 00005 
00536 00005 
00541 00005 
00546 00005 
00551 00005 
00556 00005 
00561 00005 
00566 00005 
00571 00005 



00^40ADR 1 J 


DS 


5 


00550$ 1 GN3 


OS 


5 


OO56OCOUNT 


us 


5 


00570CNTR 


OS 


3 


OO58OCTR 


OS 


3 


005901 


us 


3 


00 600 J 


DS 


3 


00610K 


DS 


3 


00 620 L 


DS 


3 


00 630 P 


DS 


3 


006400 


DS 


3 


00650MSZ 


DS 


4 


006601 VE 


DS 


3 


006701 VP 


DS 


3 


00 680 TEMPI 


DS 


10 


00 690 TEMP 2 


DS 


10 


00700AO 


DS 


10 


00710EY 


DS 


10 


00720RSQR 


DS 


10 


00730SOR 


DS 


10 


00740DF 


DS 


10 


00750F 


DS 


10 


00760FIM 


DS 


10 


00770FOUT 


DS 


10 


00780HIGH 


DS 


10 


007 JO VP 


DS 


10 


OOCOOVE 


DS 


10 



O0576 00005 
00581 00005 
00586 00005 
00589 00003 
005S2 00003 
00595 0000 3 
00598 00003 
00601 00003 
00 604 00003 
00607 0000"? 
00610 00003 
00614 00004 
00617 00003 
00 620 OO003 
00630 00010 
00640 00010 
«0650 00010 
00660 00010 
00670 00010 
00680 00010 
00690 00010 
00700 00010 

00710 00010 

O072O 00010 
007 30 00010 
00740 00010 
00750 00010 



008100UT 


DS 


80 




00o20 






00830 00080 


DC 


1 , 'u> 




OO83O 






00831 00001 


DC 


8, 10000000 




r\ r\ it t\ c Dftn 1 
UUo'HJr rUO I 






00833 00008 


DC 


2,-2 


00«50 






O084t 00002 


DC 


8, 10000000 




00860FHI GH 






00849 nooo8 


DC 


2,50 


00851 00002 


00 870 


DC 


3,0 




00880ZER0 






OO853 00008 


DC 


2,-99 






00861 00002 


OO89OZEROS 


DC 


10,0 


00871 00010 


00!X)0 


DC 


8, 10000000 


00879 OOO08 


009100NE 


DC 


2, 1 








00881 00002 


00920PNUM 


DS 


4 


00885 00004 


00930MCNT 


DS 


3 










00888 00003 
00891 0000 3 


00940N0I N 


DS 


3 


00950RCNT 


DS 


3 




00 960CNTR1 






00894 0000* 


DS 


3 










00897 00003 


00^70AGG 


DS 


10 


00980* 






00907 00010 






00990* INITIALIZE DEGREES OF FREEDOM 




01000* 









-01010STAR4B TftS Of .OfsSfft 



01020* 

010 30* IS IT FORCED T+tRGWitt THE ORIGIN. 
01040* 

01050 BD . DF1.C0N7 



01060 



FS OF, ONE 



00908 16 09911 fio^l 
00920 49 09860 00000 
00327 00005 006% 
00932 00005 50481 



00938 43 00980 00447 

00950 16 09911 60973 
00962 4 9 09760 00000 
00969 00005 606-)0 
00974 00005 50881 



213. 



01070* 

01080* INITIALIZE STEP AND SEQUENCE NUMBER , 
01090* 

01100DF1 TFM PST2+11.0.9 



OHIO 



TFM PST2+23J.8 



0tT20* 

01130* TRANSFORM MATRIX FOR MDV REGRESSION. 
01140* 

01150* SET INDEX FOR INDEPENDENT VARIABLE. 
01160MD0 BNC4 STW23 



OTT 65 
01170 
01180MD01 
"01 1 82 
01184 
01186 

onsir 

01200 
01210 

"01220 



01230 
01240 
0T25O 
01260 

01270STW23 TF 
0t28fr 
01290 



TF COUNT, N 

TF *+l8,|ND 

WNCD 99999 

AM MD01+6 ,80, 10 

SM COUNT, 80, 10 

BP MD01 

TF PNUM,N 

PNCH.SUM1 
PNUM",N 
PNCTT, STGTtA" 
PNUM.MSZ 
PNCH.R 



BT 
TF 
BT 
TF 
BT 
M 

DORG *-9 

COUNT, N 
TFM J,T,ttf 
TFLS HIGH, ZERO 



01300 



TF MD1+11,|ND 



00980 16 08435 OOOOO 
00992 16 08447 00001 



01004 47 01162 00400 
01016 26 00586 00426 
01028 26 01046 00486 
01040 38 99999 00400 
01052 1 1 01046 000 80 
01064 12 00586 OOOBO 
01076 46 01040 01100 
01088 26 00885 00426 
01100 27 08706 00541 
01112 26 00885 00426 
01124 27 08706 00546 
01136 26 00885 00614 
01148 27 08706 00551 
01 160 48 OOOOO OOOOO 
01162 

01162 26 00586 00426 

01174 16 00598 0006l 

01186 16 09911 51209 
01198 49 09860 OOOOO 
01205 00005 00730 
01210 00005 50861 

01216 26 01239 00486 



01 310MD 1 


BD 


*+20, 99999 


01320 


B 


MD 3 


01330 


DORG 


*-3 


01340MD2 


AM 


MDI+11,1,10 


01350 


AM 


J, 1,10 


01360 


SM 


COUNT, 1,10 


01 370 


BP 


MD 1 


01380 


B 


TSTH 


01 390 


DORG 


*-3 


1400* 
01410* ts 
01420* 
0143OMD3 


R(J,J) GREATER THAI* 
TF P,J 


01440 


TF 


Q.J 


01450 


BTM 


CADU,0, H> 


n 1 ii Cx\ 

U f HOU 


TF 


ADKK.ADIJ 


01470 


TF 


MD4+28, ADKK 


01480 


TF 


M01H-28,ABKK 


01490 


TFLS 


TEMPI ,FP001 


01500MD4 


FS 


TEMP 1,99999 



01510 BP MD2 

01520* 

01530* AGGREGATE VARIANCE DECREASES. 
1 540* 

01550 TFM L.1,10 

01560 TF CNTR.N 



01228 43 01248 99999 
01240 49 01304 OOOOO 
01248 

tft248 H-©t239-000St 
01260 11 00598 00051 
01272 12 00586 00061 
01284 46 01228 01 K>0 
01296 4 9 01944 OOOOO 
01304 

01304 26 00607 00598 

01316 26 00610 00598 

01328 17 04212 00060 

013M) 26 00561 00571 

01352 26 01434 00561 

01364 26 01742 00561 

01376 16 09911 01399 
01388 49 09860 OOOOO 
01395 00005 00630 

eN+eo 06005 6©64t 

01406 16 09911 01429 
01418 49 09760 OOOOO 
01425 00005 60630 
01430 00005 99999 

01436 46 01248 01100 

$1448- 16 00604 00061 
01460 26 00589 00426 




215. 



01570 TFLS AGG , ZERO 

















0148U nq8£n nnnnn 








1491 noon*; fin on 7 


01580 


TF 




01496 00005 00861 


MD5+11.IND 


~ O1590MD5 






01502 26 01525 00486 


BWR 


MOMOO . 99999 


01600 


C 


J,L 


01514 45 01774 99999 


01610 


BP 


MD6 


01526 24 00598 00604 


0T620 






01538 46 01594 01100 


TF 


P, J 


01630 


TF 


Q, L 


01550 26 00607 00598 


01640 






01562 26 00610 00604 


BTM 


CADI J, 0, 10 




01630 






01574 17 04212 00000 


— ft 


^jQ 7 ; 


01660 


DORG 


*-3 




OI67OMO6 






1594 


TF 


P,L 


01680 






U O^H £.0 UUDU/ UUOUH 


'""TF" 


Q, J ' 


01690 






01606 26 00610 00598 


BTM 


CADIJ.O, 10 


01700MD7 






01618 17 04212 00000 


TF - 


ttD9+28,AD|J 


01 710 " 




- MDt0T28,AOU 


01630 26 01682 00571 


— TF- 


01720MD9 


TFLS 




01642 26 01712 00571 


TEMPI , 99999 








016^4 16 09911 H1677 








01666 49 09860 00000 








01 673 00005 50630 


01730MD10 


FM 


TEMPI, 99999 


OI678 00005 59999 








01684 16 09911 51707 








01696 49 09800 00000 








01703 00005 00630 


O1740MO11 


FO 




01708 00005 59999 


TEMP 1,95999 








01714 16 09911 51737 








01726 49 09820 00000 








01733 00005 00630 


01750 


FA 


AGG, TEMPI 


01738 00005 59999 








01744 16 09911 01767 








01756 49 09780 00000 








01763 00005 00907 








01768 00005 00630 



216. 



01760MDMOD AM L.1,10 

01770 AM MD5+1 1,1,10 

01780 SM CNTR.1,10 

01790 BP MD5 
1 800* 

01810* COMPARE AGG WITH HIGH. 

01820AG1 TFLS TEMPI, HIGH 



01830 



FS TEMPI ,AGG 



01840 BP MD2 

01850 TFLS HIGH, AGG 



01860 
01870 
01880 



TF K, J 
B MD2 
DORG *-3 



1 890* 

01900* TEST IF HIGH = ZERO. 
01910* 

01920TSTH C HIGH, ZERO 
01930 
01940 
01950 
01960 
01970 
01980 
01990 



BE FINISH 
TFM RET3+6,*+20 

B MT 
DORG *-3 
RCTY 

TF 0UT.K 
WNTY 0UT-1 



01774 11 00604 OOO01 
01786 11 01525 OOO01 
01798 12 00589 00001 
0181O 46 01514 OtlOO 



01822 16 09911 01845 
01 834 49 09860 00000 
01841 00005 00630 
01846 00005 00730 

01852 16 09911 01875 
01864 4 9 9760 00000 
01871 00005 00630 
01876 00005 00907 

01882 4 6 0124 8 01100 

01894 16 09911 01917 
0190 6 4 9 9860 00000 
01913 OOOOS 00736 
01918 0000 5 00 907 

01924 26 00 60 1 00 5 98 

01936 49 01248 00000 

01944 



$1944 
01956 
01968 
01980 
01988 
01988 
zuuu 
02012 



24 00730 00861 
46 02062 01200 
16 04510 01988 
49 02742 00000 

34 00000 00102 
26 00830 00601 
38 00829 00100 



217- 



a oaaa 
UZUUU 


FS 


DF, ONE 










UZUZ4' 


\C AQQl 1 A*OAhT 

i o uyyi I Dzu't/ 








n on a A 


Lq AQ7An nnnnn 








n onk a 










a oAkft 


AAAAC ?Snftft1 
UUUU3 UUOO 1 


02010 


B 


MDO 














Ji Q AlAAlt AAAAA 

uiuuh uuuuu 


20 20 


DORG *-3 ~" 












A OA A 9 




02030FINISH 


BTM 


CNOIN.O, 10 








02062 


1/ Ubooz 00000 


02040 


TF 


MCNT.N 








020 / h 


AAQQQ AAfiO£ 

ZD UUOOO UUHZO 


02050 


TFtt 


TVf , T7T0 * 








02086 


16 0061/ 00001 


02060 


TF 


M0V1 + 11JND 










02098 


zo 02121 OOhoo 


O207OMOVt 


BNR 


MOVMOD, 99999 




45 02206 99999 






021 10 


02080 


TF — 


l, rve 








02122 


ZD OOoOh OOol / 


02090 


TFM 


RET5+6,*+20 




lb O0050 OZlbt 




nil oil 


02100 


B 


CREGO 










A O 1 Ji C 

02 lto 


1. Alt CIO AAAAA 

*+y UHbiz uuuuu 


" O2TT0 


" DOR 6" 


*=3 ' ' 


A O 1 Cli 

02 1 5*4- 












02120 


TFM 


RET4+6,*+20 




ID UOHIO UZI/H- 




A O 1 Cli 

UZ 1 DH 


02130 


B 


1>ST 










A 1 At 
UZ lOO 


it Q AQA&O AAAAA 

4y UOUOZ uuuuu 


02140 


DORG 


*-3 - 












02174 




02150 


BD 


MDVMOD , C0N8 








A O 1 *7j* 
02 1 /H 


It O A O OA A AAftJiQ 

f J UZZUD UUhHO 


02160 


TFM 


RET6+6,*+20 








A O 1 fit 

u/ too 


1 £ AfiA£A ^i<in£ 
ID UoUDU UZZUD 


62+70 _ 


•-B-- — 


- PR EG 












A o 1 qS 


Lq A7aiA nnnnn 


02180 


DORG 


*-3 












02206 




02190MDVM0D 


AM 


IVE,1,10 




11 00617 00001 






2206 


O2200 ' 


AM 


mvr+tt,t,HJ 








02218 


11 02121 00001 


02210 


SM 


MCNT, 1 , 10 




12 00888 00001 




02230 


02220 


BP 


MDV1 












02242 


46 02110 01100 



02230* --ARE~RfGRESS rON STATtSTtCS WANTED FOR EXCLUDED INDEPENDENT 

02240* VARIABLES. 

02250* 

02260CMEX BD *+20,C0Nl8 

02254 43 02274 00458 



216 



n 90 7n 
uzz/u 


R 
D 


CMTRA 


02266 






DORG 


*-3 


02274 




n 00 on 


BTM 


CN0IN.0, 10 








ft997ii 


17 Odd(t7 oooBn 

1 / w wwwt uuuuu 


02300 


TF 


MCNT, N 












j» ^ Aftftflfl nn 1 /" 

WWW W~£U 


02310 


TFM 


IVE.1,10 








02298 


1 v UvU 1 / vUUU 1 


02320 


TF 


EX 1+1 1 , 1 ND 










no 5 in 


9& noaaa Ant ft A 


A O 3ftrV 1 

UZ330tX 1 


d n 

DU 


EXM0D, 99999 










AO aoo 


h.% ft 9k 1ft QQQQQ 


n aiiA 
UZ^hU 


I r 


1 1 \/F 
L , 1 V L 










a a ak 


oA nnAnk nnAi7 


02350 


TFM 


RET5+6,*+20 


a aii A 


ID UOOpo UZJOD 


023oO 


B 


CREGO 


uZJpo 


4? 0*1512 00000 


A O OTA 

UZjJ/O 


UUKb 


*_3 


n a£& 




02380 


TFM 


RET4+6,*+20 










n 9 aAA 


%fi nftkift fioaftA 


02390 


B 


PST 












A 9 37 A 


O f\ f ~\ ft AAA A ■ 
■t" OuuoZ UUUUU 




DORG 


*_a 


a aft A 




n ok in 
UZH iu 


r n 
D u 


EXM0D , C0N8 










aft A 


ka 09k 1ft AAkkfl 


a oli on 

UZHZU 


TFM 


RET6+6,*+20 










.... a&jaQ 


ID UOUDU UZ*t 1 O 


02430 


B 


PREG 


A9klA 


kO A7J1 A AAAAA 
**" U/jlO UUUUU 


nokkn 


DORG 


*_a 
j 


A Ok1 ft 




n oIicaf YMnn 


AM 


IVE, 1,10 












02418 


It 00617 OOOfft 


n?ii.6n 

U t*T WU 


AM 


EX 1 + 11 ,1,10 










02430 


11 02333 00001 


\J £.*T 1 U 


SM 


MCNT, 1,10 










02442 


12 00888 00001 


02480 


BP 


EX 1 


02454 


4£ 02322 -OtfOO 


02490* 










02500* 


IS TRANSFORMED MATRIX PUNCHED. 






02510* 










02520CMTRA 


BD 


*+20,C0N12 


02466 


43 02486 00452 


02530 


B 


CMRE 


02478 


49 02510 00000 


02540 


DORG 


*-3 


02486 





219. 



02550 


TF 


PNUM,MSZ 














02486 


26 


00885 


00614 


02560 


BT 


PNCH.R 














02498 


27 


08706 


00551 


02570* 












02580* IS 


MATRIX RE 1 NVERTED. 










02590* 














02600CMRE 


BD 


*+ 20, CON 13 
















02510 


43 


02530 


00453 


02610 


B 


FINAL 






02620 






02522 
02530 


49 


02722 


00000 


DORG 


*-3 






02630* 














02640* ~Rf 1 NVERT 


MATRIX AND "PUNCH. 










2650* 














02660 


TF 


COUNT, N 










02670 






02530 


26 


00586 


00426 


TFM 


K,1, 10 










02680 




02542 


16 


00601 


0005 1 


TF 


"Rf 1+1 1 ,TN© 








02690 




02554 


26 


02589 


00486 


TF 


RE2+11.IND 
















02566 


26 


02609 


00486 


02700RE1 


BNR 


*+ 20, 99999 
















02578 


45 


02598 


99999 


027 ttf 


B - 


REMOD 
















02590 


49 


02638 


00000 


02720 


UUKb 


*-3 


02598 








02730RE2 


BO 


*+ 20, 99999 
















02598 


43 


02618 


99999 


02740 " 


-e- — 


REMOD -■ - 
















02610 


49 


02638 


00000 


02750 


DORG 


*_ 3 


02618 








02760 


TFM 


RET3+6,*+20 
















02618 


16 


04510 


02638 


0277© 


B 


MT- 










02780 






02630 


49 


02742 


00000 


DORG 


*-3 


02638 






02790REMOD 


AM 


K,1,10 










02800 








1 1 


uuou 1 


nnnff 1 


AM 


REI+tt, t,10 










02810 




02650 


11 


02589 


00001 


AM 


RE2+1 1 , 1 , 10 
















02662 


11 


02609 


00051 


02820 


SM 


COUNT, 1,10 
















02674 


12 


00586 


00051 


02830- 


BP 


RE 1 
















02686 


46 


02578 


01100 


028ifO 


TF 


PNUM.MSZ 














02698 


26 


00885 


00614 



220. 



TF 
SM 
A 

BD 



MTH-11 ,1N0 
MT1+11, 1,10 
MT1+11.K 
DEL, 99993 



02850 BT PNCH.R 

02860FINAL RNCD 
02870 B 

02880 DORG *-3 

02890* ****** * 
02900* MATRIX TRANSFORMATION SUBROUTINE. * 
02910* ******* 
02920* TEST IF ADDING OR DELETING VARIABLE 
02930* 
0294OMT 

02950 

02960 

0297OMT1 

02980 

02990 

03000 

03010 

03020DEL 

03030 

03040MT2 

03050 

G3O60€KK1 

03070 

03080 

03090 



TFM GTFMI+11,0 

TDM CA99+11.1 

B MT2 -■ 

DORG *-3 

TFM GTFMI+11,5 

TDM CA99++1.0 - 

TF P,K 

TF Q,K 

BTM CA£>tJ f -0i-1O - • 

TF CKK2+28.ADIJ 

TF CKK3+23.ADIJ 

■TF CKK4+23,A{>I J 



03100* 

03110* COMPUTE INVERSE OF PIVOT ELEMENT. 
03120* 

03130CKK2 TFLS TEMPI , 99999 



02710 
02722 
02734 
02742 



02742 
02754 
02766 
02778 
02790 
02802 
02814 
02822 
02822 
02834 
02846 
02858 
02870 
02882 
02894 
02906 



27 08706 
36 00000 
49 00000 



00551 
00500 
00000 



26 02789 
12 02789 
21 02789 
43 02822 
16 03115 

15 04365 
49 02846 

16 03115 
15 04365 
26 00607 
26 00610 

17 04212 
26 02946 
26 02971 
26 03001 



02918 
02930 
02937 
02942 



Ifr 099it 
49 09860 
00005 
00005 



00486 
00001 
00601 

99999 
00000 
00001 
00000 

00005 
00000 
00601 
00601 
00000 
00571 
00571 
00571 



02941 
00000 
00630 

99999 



221. 



03160 
^3170 
03180 
03190 
03200 



TFLS 


QQQQQ DKIF 

yyyyy > unit. 






fi7Q71 
Ut?/ 1 






1 O U ^7.7 1 1 
















0.9QA7 
UiyOf 


UUUU 5 


Sqqqq 






fi 9 97 9 


nnnn c 

UUUU 3 


uu oo i 


r u 


99999, TEMPI 










n 9Q7ft 


1 A flQQI 1 

■ o uyy 1 1 


UpUU 1 






UZ9:*J 




00000 






02997 


00005 


59999 






03002 


00005 


50630 


TF 


GTFM7+28.ADI J 










03008 


26 03396 


00571 


TF 


RTFM1+28.ADI J 












03020 


26 03962 


00571 


TF 


RTFM1+23.ADIJ 










03032 


26 03957 


00571 


TF 


CTFM2+28.ADIJ 










03044 


26 04108 


00571 


AM 


RTFMI+23,10,10 






oooTo 






03056 


11 03957 



03210* 

03220* GENERAL MATRIX ELEMENT TRANSFORMATION, 
03230* 

03240GENTFM TFM I , T , 10 



— Tfft — J,t, TO " 
03260 TF ADR I J ,R 

03270GTFM1 Tftt-— StGN3,0 



03280 
03290 
03300 
03310 
03320 
03330 
03340 
03350 



— c— 

BE 
C 

BH 
A 
TF 
TF 



Ky- 



NEXT 
K, J 
NEXT 
KGRJ 

SIGN3.GTFM1+11 
P,K 
Q,J 

03360GTFM2 BTM CADIJ.0,10 



WTO 
03380 



TF 
C 



GTFM4*26,ADtJ 



03068 


16 


00595 


00001 


03080 


16 


00598 


00001 


03092 


26 


00576 


00551 


03104 


16 


00 581 


50000 


03116 


24 


00601 


00595 


03128 


46 


03786 


01200 


03140 


24 


00601 


00598 


03152 


46 


03786 


01200 


03164 


46 


03510 


01100 


03176 


21 


00581 


03115 


03188 


26 


00607 


00601 


03200 


26 


00610 


00598 


03212 


17 


04212 


000O0 


03224 


26 


03336 


00571 


03236 


24 


00595 


00601 



03390 


BH 


IGRK 


03400 


TF 


P,l 


03410 


TF 


Q,K 


3490GTFM 3 


BTM 


CAD |J ,0 , 10 


03430 


TF 


GTFM41+28.ADIJ 


03440GTFM4 


TFLS 


TEMPI, 99999 


03450GTFM41 


FM 


TEMP 1,99999 


346OGTFM7 

w J^V^U 1111/ 


FM 


TEMPI 99499 


03470 


Bt> 


€TFM5iS|Gff3- " 


03480 


TF 


GTFM6+23.ADRIJ 


03490GTFM6 


FS 


99999, TEMPI 


03500 


B 


NEXT 


03510 


DORG 


*-3 


03520GTFM5 


TF 


GTFM8+23,ADRIJ 


03530GTFM8 


FA 


99999, TEMPI 



03540 B NEXT 

03550 DORG *-3 

03560* 

03570* K GREATER THAN J. 
03580* 

03590KGRJ TF P,J 



03248 46 03642 OttOO 

03260 26 00607 00595 

03272 26 00610 00 601 

03284 t^O42tr 000CO 

03296 26 03366 00571 

03308 16 09911 53331 
03320 4 9 9860 00000 
03327 00005 60630 
03332 00005 59999 

03338 16 09911 63361 
03350 49 09800 00000 
03357 00005 50630 
03362 OOOO5 59999 

03368 16 09911 63391 
03380 49 09800 00000 
03387 00005 60630 
03392 00005 59999 

03398 43 03460 00581 

03410 26 03445 00576 

03422 16 09911 63445 
3**}** ^f7 u7rw OOOOO 
03441 00005 59999 
03446 00005 00630 

03452 49 03786 00000 

03460 26 03495 00576 

03472 16 09911 63495 
03484 49 09780 00000 
wjty t uuuud jyyyy 
03496 00005 50630 

03502 49 03786 00000 

03510 



03510 26 00607 00598 



i 

V. J 



© 



03600 


TF 


Q,K 


03610 


TF 


KGRJ 1+11, |ND 


03620 


SM 


KGRJ 1+1 1 , 1 , 10 


03630 


A 


KGRJ 1+11, J 


03640 


TF 


KGRJ 11+11, KGRJ 1+11 


03650KGRJ11 


BNR 


KGRJ1 ,99999 


03660 


B 


GTFM2 


03670 


DORG 


*-3 


0368OKGRJ1 


BO 


KGRJ2, 99999 


03690 


B 


GTFM2 


03700 


DORG 


*_3 


0371OKGRJ2 


AM 


SIGN3.5.10 


03720 


B 


GTFM2 


03730 


DORG 


*-3 


03740* 

03750* 1 GREATER- THAI* K. 
03760* 

'P3770IGRK - TF ~p-,K 


03780 


A 


SIGN3.GTFM1+11 


03790 


TF 


Q,l 


O38OO 


TF 


tGRKt+tl.tttD 


03810 


SM 


IGRKI+11,1,10 


03820 


A 


IGRKI+11,1 


03830 


TF 


tG^K1t+H,tGRK1+H 


03840 IGRK 11 


BNR 


1 GRK1 , 99999 


03850 


B 


GTFM3 


03860 


DORG 


*-3 


03870IGRK1 


BD 


IGRK2, 99999 



03522 26 
03534 26 
03546 12 
03558 21 
03570 26 
03582 45 
03594 49 
03602 
03 602 4 3 
03614 49 
03622 
03622 11 
03634 49 
3642 

3642 26 
03654 21 
03666 26 
03678 26 
03690 12 
03702 21 
03714 26 
03726 45 
03738 49 
03746 
03746 43 



00610 00 601 
03613 00486 
03613 00001 
03613 00598 
03593 03613 
03602 99999 
03212 00000 

03622 99999 
03212 00000 

0058 1 00055 
03212 00000 



0060 7 00601 
00581 03115 
00610 00595 
03757 00486 
03757 00051 
03757 00595 
03737 03757 
03746 99999 
03284 00000 

03766 99999 



a 



224. 



03880 


B 


GTFM3 






03890 


DORG 


*-3 


ft 27 (%(\ 
Mil OO 






03900IGRK2 


AM 


SIGN3.5JO 


f\n(*(i 1 1 fine ft 1 nnnffc 




03910 


B 


GTFM3 


U5//0 WJ ojzot uuuuu 




03920 


DORG 


*-3 








03930* 








03940* SET 


UP NEXT TRANSFORMATION. 




03950* 








03960 NEXT 


AM 


AORI J, 10, 10 


0.3/ 00 11 Ulo/O UUUIU 




03970 


C 


N,J 


03798 24 00426 00598 






03 980 


BE 


NI 


03810 4 6 3842 01200 






03990 


AM 


J , 1 , 10 


03822 11 00598 00051 




04000 


B 


GTFM1 


03834 49 03104 00000 






04010 


DORG 


*-3 


ft 3CI1 9 






04O2ON1 


e 








04030 


BE 


ROWTFM 








ftaficii Lf> ftSftQft ft 1 9ftft 


04040 


AM 


1 ,1,10 


ft 2R 11 ftftCQC ftftftft"l 
U JO DO I 1 UlOiO uuuu 1 




04050 


TF 


J,t 


ft 3ft7ft lf\ ftftCQft nncQC 




04060 


B 


GTFM1 


03890 49 03104 00000 








04070 


DORG 


*-3 


03898 






040B0* 








04090* PIVOT ROW TRANSFORMATION. 




04100* 








04110R0WTFM 


TF 


J.K 






03898 26 00598 00601 


04120 


C 


J,N 


03510 24 OG598 00426 




04130 


BE 


COLTFM 








03922 46 03996 01200 


04140RTFM1 


FM 


99999,99999 


03934 16 09911 63957 
03946 49 03800 00000 
03553 00005 99999 
03958 00005 99999 





04150 AM J, 1,10 

03964 11 00598 00001 

04160 AM RTFMI+23,10,10 

03976 11 03957 OOOlO 

04170 B ROWTFM+12 

03988 49 03910 00000 

04180 DORG *-3 

03996 

04190* 

04200* PIVOT COLUMN TRANSFORMATION 
04210* 



04220C0LTFM 


TF 


t ,K 














03996 


26 00595 


00601 


04230CTFM4 ~ 


~§M 


t ,t,to 














04008 


12 00595 


000(51 


04240 


BE 


CA98 














04020 


46 04318 


01200 


04250 


TF 


P,t 












04032 


26 00607 


00595 


04260 


TF~ 


W 












04044 


26 00610 


00601 


04270CTFM1 


BTM 


CADtJ.O, 10 














04056 


17 04212 


000(50 


04280 


TF~ 


CTFtt2*23%A©tJ 












04068 


26 04103 


00571 




FM" 


99999, 99999 














04080 


16 09911 


04103 








04092 


49 09800 


00000 








04099 


00005 


59999 







--- - 


04104 


00005 


59999 


04300 


TF 


CTFM3+11.CTFM2+23 














04110 


26 04169 


04103 


04310 


SM 


CTFM3+11,2,10 














04122 


12 04169 


00002 


04320 


TF 


CTFM5+6.CTFM3+1 1 














04134 


26 04176 


04169 


04330 


TF 


CTFM6+6.CTFM3+11 














04146 


26 04196 


04169 


0434GCTFM3 


BNF 


CTFM6, 99999 












04158 


44 04190 


99999 


04350CTFM5 


CF 


99999 














04170 


33 99999 


00000 


04360 


B 


CTFM4 














04182 


49 04008 


00000 


04370 


DORG 


*-3 














04190 






04380CTFM6 


SF 


99999 














04190 


32 99999 


00000 


04390 


B 


CTFM4 














04202 


49 04008 


00000 


04400 


DORG 


*-3 














04210 







o 



04410* 

04420* CALCULATE ELEMENT A&0RE5SE5 . 
04430* 

04440 DS 2 

04450CADIJ S Q,P 



94460 ~ TF ADU.R 

04470 TF CNTR1.N 

04480AAA SM P.1,10 

04490 BE BB 

04500 A ADIJ-1.CNTR1 

04510 SM CNTR1,1,10 

04520 B AAA 

04530 DORG *-3 

04540BB A ADIJ-1.Q 

04550 BB 

04560 DORG *-9 
04570* 



04580* SET I ND . 

04590* - 

04600CA98 TF CA99+6.IND 

04610 SM CA 99+6, 1,10 

04620 A CA99+6,K 

04630CA99 TDM 99999,0 

04640* 

04650* SET NEGATIVE DIAGONAL ELEMENTS 



04660* 

04670 TF CNTR 1 ,N 

04680 TF SP 1+11, ft 

04690 SM SPI+11,2,10 

04700SP1 BNF SP 3, 99999 

04710 TF SP2+23.SP1+11 



04211 00002 

04212 22 00610 00607 
04224 26 00571 00551 
04236 26 00897 00426 
04248 12 00607 00001 
04260 46 04304 01200 
04272 21 00570 00897 
04284 12 00897 OOOOl 
04296 49 04248 00000 
04304 

04304 21 00570 00610 
04316 42 00000 00000 
04318 

04318 26 04360 00486 
04330 12 04360 0000" t 
-04342 24 0436© «6*ei 
04354 15 99999 00000 

ZERO. 

04366 26 00897 00426 
04378 26 04413 00551 
04390 12 04413 00052 
04402 44 04468 99999 
04414 26 04461 04413 



o 



© 



227. 



04720 AM SP2+23.2.10 

04730SP2 TFLS 99999, ZERO 



_ f\ I ■ ^ I f% r* r> ■> 

o*r7*rtjSrj 
04750 
04760 
D4770RfTT 
04780 



a— str+tovtitmr 

SM CNTR 1,1,10 

BP SP1 

DORG *-3 



04790* ******* 
04800* SUBROUTINE TO CALCULATE REGRESSION 

48 1 * * * * * * * * 

04820* 

04830CREGO TF P,L 



04426 11 04461 0000"2 

04438 16 09911 64461 
04450 49 09860 00000 
04457 00005 59999 
04462 00005 50861 

04468 21 04412 00897 

04480 12 00897 00001 

04492 46 04402 01100 

04504 49 99999 00000 

04512 

****** 

STATISTICS FOR STEP OR MDV. 
****** 



04840 

04850 

04860 

04870CREG 

04880 

04890 

04900 



TF Q,L 

STM — eAOtJ.O.tO 

TF AORNN.ADIJ 

TF C-ALCE+28.ADRNN 

TF CE 1+28, SIGMA 

SM CEI+28,10,10 

A CE1+27.L 



045TO€ftLC£ TFLS- €¥ , 99999 



04920 
04930 
04940 



C DF , ZERO 
BE CALCB 
FD EY,DF 



04512 


26 00607 


00604 


04524 


26 00610 


00604 


04536 


17 04212 


00000 


04548 


26 00566 


00571 


04560 


26 04636 


00566 


04572 


26 04780 


00546 


04584 


12 04780 


000 To 


04596 


21 04779 


00604 


04608 
04620 
04627 
04632 


16 09911 
49 09860 
00005 
00005 


04631 
00000 
00660 

59999 


04638 


24 00690 


00861 


04650 


46 04782 


01200 


04662 
04674 
04681 
04686 


16 09911 
49 09820 
00005 
00005 


04685 
00000 
00660 
00690 



228- 



04950 



04960 



04970CE1 



04980* 
04990* 
05000* 



FM EY , OBSER 

04692 16 09911 04715 
04704 49 09800 00000 
04711 00005 00 660 
04716 00005 50481 

04722 16 09911 54745 
04734 4 90 9840 00000 
04741 00005 ~ 50660 
04746 00005 CO 660 

04752 16 0991 1 54775 
04764 49 09800 00000 
04771 00005 50660 
©4776 00005 99999 

CALCULATE COEFFICIENTS, STANDARD ERRORS AND T RATIOS. 



FSQR EY,EY 



FM EY, 99999 









04782 


16 


on^qt; oonBi 

VWJ Www 1 


05020 


TF 


RCNT.N ~ 












04794 


26 


00894 00426 


05030 


TF 


CA 1 + 1 1,1 NO 


04806 


26 


04973 00486 


05040 


TF 


CA4+28, SIGMA 












04818 


26 


05212 00546 


05050 


SM 


CA4+28.10, K> 












04830 


12 


05212 000T0 


05060 


A 


CA4+27.L 


04842 


21 


05211 00604 


05070 


TF 


CA 5+28, SIGMA 












04854 


26 


05242 00546 


05080 


- TF 


CA6+23,B 












SE3+28,Sf€MA 


04866 


26 


05335 00526 


05090 


TF 


04878 


26 


05538 00546 


05100 


TF 


SE4+23.SE 


04890 


26 


05563 00531 


05H0 


TF 


H+23.T 












TI+28,6 


04902 


26 


05617 00536 


05120 


TF 


04914 


26 


05622 00526 


05130 


TF 


T2+23.T 














04926 


26 


05647 00536 
05652 00531 


05140 


TF 


T2+2SiSE 


04938 


26 


05150 


TF 


SETID+6, ID 








05160CA1 






04950 


26 


05660 00491 


BD 


*+ 20, 99999 


04962 


43 


04982 99999 


05170 


B 


DrTUu 








05180 






04974 


49 


05750 00000 


DORG 


*_3 


04982 







05190 


TF 


*+23,CA1+11 


05200 


BNR 


*+ 20, 99999 


05210 


B 


BMOD 


05220 


DORG 


*-3 


05230CA2 


C 


1 ,L 


05240 


BE 


BMOD 


05250 


BP 


IGRL 


052601 LL 


TF 


P.I 


05270 


TF 


Q.,L 


05280 


BTM 


CADIJ.O, 10 


05290 


TF 


CA3+28,ADIJ 


5 300 


B 


CA3 


05310 


DORG 


*-3 


05320IGRL 


TF 


P,L 


05330 


TF 


Q,l 


05340 


BTM 


CADIJ.O, 10 


05350 


TF 


CA3+28,ADIJ 


05360CA3 


TFLS 


TEMPI , 99999 


05370CA4 


FM 


TEMPI , 99999 


05380CA5 


FD 


TEMPI, 99999 


OS390 


€ 





04982 26 0500 5 04973 
04994 45 05014 99999 
05006 49 05750 00000 
05014 

05014 24 00595 00604 
05026 46 05750 01200 
05038 46 05106 OtIOO 
05050 26 00607 00595 
05062 26 00610 00604 
05074 T7 04212 OOOOO 
05086 26 05182 00571 
05098 49 05154 OOOOO 
05106 

05106 26 00607 00604 

05118 26 00610 00595 

05t30 17 04212 00050 

05142 26 05182 00571 

05154 16 09911 55177 
05166 49 09860 OOOOO 
05173 00005 50630 
05178 00005 99999 

05184 16 09911 65207 
05196 49 09800 OOOOO 
05203 00005 60630 
05208 00005 99999 

05214 16 0991 1 55237 
05226 49 09820 OOOOO 
05233 00005 50630 
05238 00005 59999 

05244 24 00595 00604 



© 



05400 

05410 

05420 

05430 

05440 

05450CA55 

05460CA6 



BN CA6 

BNF CA55.TEMP1-2 

CF TEMP1-2 

B CA6 

DORG *-3 

SF TEMP1-2 

TFLS 99999, TEMPI 



05470* 

05480* CALCULATE SE OF B(l). 
05490* 

05500 TF P,l 

05510 
05520 
05530 
05540S El 



0555OSE2 



05560 



05570 



TF Q, I 
BTM CAD I J, 0,10 
TF SE1+28,ADIJ 
TFLS TEMPI, 99999 

FD TEMPI, 06 S£R 

FSQR TEMPI , TEMPI 

FM TEHPf ,EY 



05580SE3 FD TEMPI, 99999 



05256 
05268 
05280 
05292 
05300 



47 05312 01300 
44 05300 00628 
33 00628 OOOOO 
49 05312 OOOOO 



05300 32 00628 OOOOO 



05312 
05324 
05331 
05336 



16 ©99H 05335 
49 09860 OOOOO 
00005 39999 
00005 50630 



05342 26 00607 00595 

05354 26 00610 00595 

05366 17 04212-00000 

05378 26 05418 00571 

05390 16 09911 55413 
0540 2 4 9 9860 OOOOO 
B5w7 00005 00630 

05414 00005 59999 

05420 16 09911 55443 
05432 49 09820 OOOOO 
05439 00005 60630 

VZrrff UUUU 3 U04OT 

05450 16 09911 65473 
05462 49 09840 OOOOO 
05469 00005 6063O 
05474 00005 60630 

05480 16 09911 55503 
05492 49 09800 OOOOO 
05499 00005 60630 
05504 00005 60660 

05510 16 0991 1 55533 
05522 49 09820 OOOOO 
05529 00005 60630 
05534 00005 59999 



05590SE4 TFLS 99999, TEMPI 



05600* 

05610* TEST IF EY ■ ZERO. 

0562 0* — - 

05630 C EY.ZERO 

05640 BE SETID 

05650* 

"~" 05660* COMPUTE T ( I ) ." 
05670* 

05680T1 TFLS 99999,99999 



05690T2 


FD 


99999,99999 


O5700* - 

05710* SET ID. 
05720* 

05730SETID TF 


99999,1 


05740 


AM 


CA6+23.10.10 


05750 


AM 


SE4+23,10,10 


05760 


AM 


T1+23,10,10 


05770 


AM 


T1+28,10,10 


05780 


AM 


T2+23,10,10 


05790 


AM 


T2+28.10.10 


05800 


AM 


SETID+6,2,10 


05810BM0D 


AM 


CAI+11,1,10 


05820 


AM 


CA5+28JO, 10 


05830 


AM 


SE3+28,10,10 


05840 


AM 


1,1,10 



05540 16 09911 55563 
05552 49 09860 00000 
05559 00005 59999 
05564 00005 SO 630 

05570 24 00660 00861 
05582 46 05654 01200 

05594 16 09911 55617 
05606 49 09860 00000 
05613 00005 59999 
056T8 00005 59999 

05624 16 09911 55647 
05636 49 09820 00000 
05643 00005 59999 
05648 00005 99999 

05654 26 99999 00595 
05666 Tt 05335 OOOTO 
05678 11 05563 000T0 
05690 11 0561 7 OOOTO 
05702 11 05622 000T0 
05714 11 05647 OOOTO 

05726 11 05652 000T0 

05738 11 05660 00052 

05750 11 04973 00061 

05762 11 05242 OOOTO 

05774 11 05538 OOOTO 

05786 11 00595 00051 



232. 



05850 
05860 



SM RCNT ( 1,10 

BP CA1 



05870* 

05880* CALCULATE CONSTANT TERM 
05890* 

05900 80- *+20,CON7 

05910 8 CAO 

05920 DORG *-3 

05930 TFLS AO, ZERO 



05940 

05950 

05960CA0 

05970 

05 980 

05990CA01 

06000 

06010 

06020 

06030 

06040 

06050 

06060 

06070 

G6O8OCA02 

06090 



B CSQR 

DORG *-3 

TF CA01+28.SUM1 

SM CAOl+28,10,10 

A CA01+27.L 

TFLS AO ,99999 

TF RCNT,N 

TFM 1,1,10 

TF- -6*02+1- 1 , 1 N D — 

TF CA03+11.IND 

TF CA04+28.B 

TT f « nr 1 Tfl f I |H 1 _ 

it tMUpt£Uj juni 

C L,l 

BE CAMOD 

du LAto t 

B CAMOD 



tr? fyo tz uooyt OOOQT 
05810 46 04962 01100 

05822 43 05842 00447 
05834 49 05880 00000 
05842 

05842 16 09911 55865 
05854 49 09860 OOOOO 
05861 00005 50650 
O5866 00005 50861 

O5872 45" O6256 00000 

05880 

05880 26 05944 00541 

05904 21 05943 00604 

05916 16 09911 55939 
05928 49 09860 OOOOO 

05940 00005 59999 

05946 26 00894 00426 

05958 16 00595 00061 

05970 26 06053 00486 

05982 26 06073 00486 

05994 26 06110 00526 

06006 26 06140 00541 

06018 24 00604 00595 

06030 46 06184 01200 

06042 43 060 6 2 99999 

06054 49 06184 00000 



06100 


DORG 


*-3 


061 10CA03 


BNR 


*+20, 99999 


06120 


B 


CAMOD 


06130 


DORG 


*-3 


06140CA04 


TFLS 


TEMP 1,99999 




Ftt 


TfMPT, 99999 


n Ai An 
u O 1 ou 


FS 


An TFMP1 


06170 


AM 


CAG4+28,10,tO 


06T8oeAMOtr 


AM 


eAt)2+1t,T,10 


06190 


AM 


CA03+1 1,1, 10 


06200 


AM 


eAO5+28,10,10 


06210 


AM" - 


t , T, TO 


06220 


SM 


RCNT.1,10 


06230 


BP 


CA02 


06240* 

06250* CALCULATE SUM OF SQUARE 
06260* 

06270CSOR TF SQR 1+28, ADRNN 


06280 


TF 


SQR2+28.SIGMA 


06290 


SM 


SQR2+28, 10, 10 


06300 


A 


SQR2+27.L 


06310 


TF 


SQR 3+28, SOR 2+28 


06320S0R1 


TFLS 


SOR, 99999 



233- 



06062 






06062 


45 06082 


99999 


n An7ii 


uoiot 


UUUUU 


06082 






06082 
uouy*t 
06101 
UolUo 


16 09911 
*+y uyoou 
00005 
00005 


96105 

UUUUU 

50630 

C\C\ C\ CI o 


UO 1 1 L 

06124 
UO 1 .5 1 
06136 


1 £ rtQQt 1 

i o uyy l i 
49 09800 

UUUU3 

00005 


Uol 35 
00000 
UU OjV 

99999 


06142 
n Ai c/i 

UOI 

06161 

n Ai A£ 
U o 1 bb 


T6 099T1 
ty uy/ou 
00005 
uuuu? 


66165 

UUUUU 

50650 

UUO.JU 


06172 


11 06110 


000 To 


06184 


11 06053 


0005 1 


06196 


11 0607 3 


00051 


6208 


11 06140 


000 To 


06220 


11 00595 


00051 


06232 


12 00894 


00051 


06244 


4 6 6042 


01100 



RESIDUALS. 



06256 


26 


6344 


00566 


06268 


26 


06374 


00546 


06280 


12 


06374 


oooTo 


06292 


21 


06373 


00604 


06304 


26 


06404 


06374 


06316 
06328 
06335 
06340 


16 09911 
49 09860 
00005 
00005 


56339 
00000 
50680 

99999 



06330SQR2 


FM 


SQR , 99999 


06340S0R3 


FM 


SQR, 99999 


06350 


FM 


SQR, 0BSER 


06360* 






06370* CALCULATE RSOR. 


06380* 






n A 2 on 


1 r 




n ALnn 


oil 


no ixofj in in 


06410 


A 


CR1+27.L 


06420 


TF 


CR2+28.CR1+28 


06430CR1 


TFLS 


TEMPI ,99999 


06440CR2 


FM 


TEMPI , 99999 


06450 


BD 


*+20,CON7 


06460 


B 


CR4 


06470 


DORG 


*-3 


06480 


TF 


CR3+28,SUM1 


06490 


SM 


CR3+28,10,10 


O65OO 


A 


CR3+27.L 


O65IO 


TF 


CR35+28.CR3+28 


06520CR3 


TFLS 


TEMP2, 99999 



06346 16 099 ft 56369 
06358 49 09800 00000 
O6365 00005 50680 
06370 00005 99999 

06376 16 09911 66399 
063&8 49-0380© OOOOO 

06395 00005 50680 
06400 00005 99999 

06406 16 9911 66429 
06418 49 09800 00000 
06425 00005 60680 
06430 00005 50481 



06436 26 065 12 00546 

06448 12 06512 000 TO 

06460 21 06511 00604 

06472 26 0654 1 065 f 2 

06484 16 0991! 66507 
06496 49 09860 00000 
06503 00005 OO63O 
06508 00005 99999 

06514 16 09911 66537 
06526 49 09800 ©OOOO 
06533 00005 60630 
06538 00005 99999 

n Arlili tit nfir.f h nniii.i 
u oyt'i «f j tnJjw ww / 

06556 4 9 06702 00000 
06564 

n ArAk oA oAAiiA nnrlii 
06576 12 06640 OOOTO 
O6588 21 06639 00604 
O66OO 26 O667O 06640 

06612 16 09911 66635 
06624 49 09860 00000 
06631 00005 50640 
06636 00005 99999 



06530CR35 FM TEMP2, 93333 
06540 FS TEMPI, TEMP2 



06550CR4 FM TEMPI, OBSER 



065 60 TFLS TEMP2.SQR 



06570 
O658O 
06590 



06600RET5 B 99999 

— 066*0- &0RG-*-3 

06620* ****** 

06630* SUBROUTINE TO CALCULATE NOIN. 

06640* ****** 
O665O DS 2 

06660CN0IN TFM NOIN, 0,9 

06670 TF CN 1 + 1 1,1 NO 

06680 TF CNTR 1 ,N 

06690CN1 BD *+20, 99999 



FD TEMP2, TEMPI 



TFtS 



FS RSOR, TEMP2 



06642 16 09911 56665 
06654 49 09800 00000 
06661 00005 00640 
06666 00005 59999 

06672 16 09911 56695 
06684 49 09760 00000 
06691 00005 50630 
06696 00005 50640 

06702 f6 09911 56725 
06714 490 9800 00000 
06721 00005 6063O 
06726 00005 60481 

06732 16 09911 66755 
06744 49 09860 00000 
06751 0000 5 60640 
O6756 00005 6068O 

06762 16 09911 56785 
06774 49 09820 00000 
06781 00005 50640 
O6786 00005 60630 

06792 16 09911 66815 
06804 49 09860 00000 
06811 00005 50670 
06816 00005 50881 

1*6822 t6 099t1 66845 
06834 49 09760 00000 
06841 0000 5 60670 
06846 0000 5 60640 

06852 49 99999 00000 

06860 



06861 00002 

06862 16 00891 00000 
06874 26 06909 00486 
06886 26 00897 00426 
06898 43 06918 99999 



© 



236. 



06700 
06710 
06720 
06730CN2 
06740 
06750 
06760 

06770CNM0D AM 
06780 
06790 
06800 
06810 



B CNMOD 
DORG *-3 

TF CN2+11.CN1+11 
BNR *+ 20, 99999 
B CNMOD 
DORG *-3 
AM NOIN, 1,10 

CNI+11,1,10 
CNTRI.1,10 
CN1 



SM 
BP 
BB 

DORG *-9 

06820HDNGO DAC 21,DEPVAR 

06830HDNG1 DAC 18.STD ERR Y.X = (5) 

06840HDNG2 DAC 18, R SQUARED = (?) 

06850HDNG3 DAC 18, SUM SQR RES = <5> 

06860HDNG4 DAC 21.IND VAR USED = 

06870HDNG5 DAC 18, CONSTANT TERM = (?) 

06880HDNG6 DAC 16, VAR C0EFF(3 

06890HDNG7 DAC 28, STD ERR 

6900* ****** 
06910* SUBROUTINE TO PRINT REGRESSION 



06910 45 06962 00000 

06918 

0691 8 2 6 6941 06909 
06930" 45 06950 99999 
06942 49 06962 00000 
6950 

06950 ft 00691 OOOOH 
06962 11 06909 0006l 
06974 12 00897 00061 
O6986 46 O6898 0T100 
06998 42 00000 00000 
07000 

/uu 1 Owzr 
07043 00018 
07079 00018 

07115 00018 

07151 00021 
07193 00018 



6920* 
-O693OPREG 

06940 

06950 

D696O 

06970 



O7229^000t6 
T RATI 0(3 

07261 00028 

* * * * 

STATISTICS. * 

* * * * 



RCTY - 

RCTY 

WATY HDNGO 
BT WRNWt-.t- 
RCTY 



07316 34 00000 00102 
07328 34 00000 00102 
07340 39 07001 00100 
07 352 27 8796 604 
07364 34 00000 00102 



06980 WATY HDNG1 

06990 BTFS FLTF I X , EY 

07000" VftTY WTftfT-lO 

07010 RCTY 

070 20 WATY HONG 2 
07030 BTFS FLTFtX ,RSQR 

07040 WATY OUTPUT-20 

07050 RCTY 

07060 WATY HDNG3 

07070 BTFS FLTF I X ,SQR 

07080 WAT^WTPttT-20 

O7O90 R€TT 

07 tOO V/ATY HDNG4 

07110 BT WRNUM,NO|N 

07120 RCTY 

071 30 00 

071' " WATY HDNG5 ' 

07t§a BTFS FLTFtX, AO 

07160 WATY OUTPUT-20 

07170 RCTY 



07376 39 07043 00100 



07388 
07400 
07407 
07412 

07418 

07430 

07442 

07454 
07466 
07473 
07478 

07484 

07496 

07508 

07520 
07532 
07539 
07544 

07550 

07^2 

07574 

07586 

07598 

07610 

07622 

07634 
07646 
07653 
07658 

07664 

07676 



16 09911 57411 

49 09880 00000 

00005 58844 

00005 50660 

39 09711 00100 

34 00000 00102 

39 07079 00100 

16 09911 57477 
49 09880 00000 
00005 68844 
00005 50670 

39 9711 00 tOO 

34 00000 00102 

39 071 15 00100 

t6 09911 57543 
49 09880 00000 
00005 58844 
00005 50680 

39 0971 1 00100 

34 00000 00102 

39 07151 00100 

27 08796 00891 

34 00000 00102 

34 00000 00102 

39 07193 00100 

16 09911 67657 
49 09880 00000 
00005 68844 
00005 60650 

39 097 tl 00100 

34 00000 00102 



07180 RCTY 

07190 WATY HDNG6 

07200 WATY HDNG7 

07210 RCTY 

07220 TF CNTR1.N0IN 

07230 TF W1 + 11JD 

07240 TF W2+28.B 

07250 TF W3+28.SE 

07260 TF W4+28.T 

07270W1 BT WRNUM, 99999 

07280 TBTY 

07290W2 BTFS FLTFIX, 99999 



07300 WATY OUfPUT-20 

07310 TBTY 
0732QW3 BTfS FLTFt*, 99 



07330 WATY OUTPUT-20 

07340 TBTY 

07350W4 BTFS FLTF IX, 99999 



07360 WATY OUTPUT-20 

07370 RCTY 

07380 AM W1+11 ,2, 10 

07390 AM W2+28,10,10 



07688 34 00000 00t02 

07700 39 07229 00100 

07712 39 07261 00 100 

07724 34 00000 001O2 

07736 26 00897 00891 

07748 26 07807 00491 

07760 26 07848 00526 

07772 26 07902 00531 

07784 26 07956 00536 

07796 27 08796 99S9S 

07808 34 00000 00108 

07820 16 09911 57843 
07832 49 09880 00000 
07839 00005 50044 - 
07844 00005 99999 

07850 39 09711 00100 

07862 34 00000 00108 

07874 16 09911 67897 
07886 49 09880 00000 
07893 00005 58844 
07898 00005 

07904 3» 05m 00100 

07916 34 00000 00108 

07928 16 09911 57951 
07940 49 09880 00000 
07947 00005 56044 
07952 00005 59999 

07958 39 09711 00100 

07970 34 00000 00102 

07982 11 07807 00062 

07994 11 07848 000 TO 



o 



07400 


AM 


W3+28,10,10 














ftOftft c 

UoUuo 


II 7 902 


00010 


07410 


AM 


W4+28,10,10 






07420 




uou 1 


11 u / ypo 


aaaTa 
UUU IU 


SM 


CNTR1, 1,10 






07430 




0B030 


12 00897 


_ 

00001 


BP 


W1 






07440RET6 






08042 


46 07796 


01100 


B 


99999 


07450 








49 99999 


00000 


DORG 


*-3 










U0U0Z 






07460* 


* * 


***** 








07470* SOBROUTtttE TO PUNCH STEP RESULTS. 


■k 






mil Qn* 


* * 


***** 








miiQAP*; t 

U /4 ?Ur 3 1 


An 


PC TO_i_1 1 1 1ft 














08062 


ll U0435 


0000 1 


07500 


TF 


0UT-77,PST2+1 1 














0B074 


26 00753 


- . 

08435 
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AM 
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05624 
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05750 
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05880 


CAO 


05916 


CA01 


06042 


CA02 


060 62 


CA03 


06082 


CA04 


06112 


CA05 


06184 


CAMOD 


06256 


CSCR 


06316 


S0R1 


06346 


S0.R2 


06376 


SCR3 


06484 


CR1 


06514 


CR2 


06612 


CR3 


06642 


CR35 


06702 


CR4 


06852 


RET5 
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O6898 
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06930 
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06962 
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07151 
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07193 
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08844 


*FLTF 1 X 


08843 


ARG 
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0000 3 
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DS 
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DS 
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00220C0N6 


DS 


1 ,C0NT+44 
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00001 


00230C0N7 


DS 
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Q0240C0N8 


DS 


1 ,C0NT+i+6 












00448 
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0025OCON9 


DS 


1.C0NT+47 












00449 


00001 


00260C0N10 


DS 


1 ,C0NT+48 
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DS 


1 , C0NT+50 


00452 
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DS 


1 , C0NT+5 1 
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DS 
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DS 
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DS 
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00456 
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DS 
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00001 


00340CON 1 3 


DS 


1 , CONT+56 


00458 


0000 T 


00350OBSER 


OS 


10 , CONT+79 


00481 


00010 


OO36O 1 ND 


DS 


c 
j 


00486 


00005 


on 27n 1 n 

U U J / U t t-/ 


DS 


c 


0049T 


00005 


nn 2pn 1 nn 

UU 1 UU 


U 


r 

5 










00496 


00005 


nn 2 qac hd ma t 

UU^yUr UK: MA 1 


nc 

U 


r 
t> 


00501 


00005 


nnhnn i w nr y 

UUhUU 1 WUCA 


DS 


C 
P 


00506 


00005 


nnJ. 1 nrnMC t 
UUH | UL I 




r 
P 


0051 1 


00005 


nnkonrtA ta 1 

UUhZUUA 1 M | 


DS 


c 
P 


00516 


00005 


nni, 2nnA ta o 

UU4- jUUM I A l_ 


DS 


c 
p 


0052T 


00005 


nnji knR 

UU4-H Uc> 


nc 


r 
j 


00526 


00005 


nnj t cnc r 
UUh pui> t 


nc 


r 
5 


00531 


00005 


nnk AnT 

UUH OU I 


DS 


c 
P 


00536 


00005 


00470SUM1 


DS 


5 


00541 


00005 


00480S I GMA 


DS 


5 


00546 


00005 


0049OR 


DS 


5 


00551 


00005 


00500WT 


DS 


5 


00556 


00005 


00510ADKK 


DS 


5 


00561 


00005 


00520ADRNN 


DS 


5 


00566 


00005 


OO53OADI J 


DS 


5 


00571 


00005 




OOS^+OADR 1 J 


DS 


5 










00576 00005 


00550S IGN3 


DS 


5 


OO56OCOUNT 






00581 00005 


DS 


5 








00586 00005 


OO57OCNTR 


DS 


3 


OO58OCTR 






00589 0000 3 


DS 


3 








00592 00003 


00^901 


DS 


3 


00 600 J 






00595 00003 


DS 


3 


00610K 






00598 00003 


DS 


3 








00 60 1 0000 3 


00620L 


DS 


3 








00604 00003 


00630P 


DS 


3 


006400 






00607 0000 3 


DS 


3 








00610 00003 


OO65OMSZ 


DS 


4 








00614 00004 


006601 VE 


DS 


3 




00670IVP 






00617 00003 


DS 


3 








00620 00003 


00680TEMP1 


DS 


10 








00630 00010 


00690TEMP2 


DS 


10 








00640 00010 


00700A0 


DS 


10 










00650 00010 


007 JOEY 


DS 


10 










00660 00010 


00720RSOR 


DS 


10 










00670 00010 


00730SQR 


DS 


10 










00680 00010 


Q0740DF 


DS 


10 










00690 00010 


00750F 


DS 


10 










00700 00010 


00760F1N 


DS 


10 










00710 00010 


00770F0UT 


DS 


10 




00780HIGH 






00720 00010 


DS 


10 










00730 00010 


00790VP 


DS 


10 










00740 00010 



00800VE 


DS 


10 


008100UT 


DS 


80 


00820 


DC 


1," 


00830 


DC 


8, 10000000 


00840FP001 


DC 


2,-2 


00850 


DC 


8, 10000000 


00860FHIGH 


DC 


2,50 


00870 


DC 


8,0 


008«0ZER0 


DC 


2,-99 


00890ZER0S 


DC 


10,0 


00900 


DC 


8, 10000000 


009100NE 


DC 


2,1 


00920PNUM 


DS 


4 


00930MCNT 


DS 


3 


00940N0I N 


DS 




00950RCNT 


DS 


? 


00960CNTR1 


DS 


3 


00970ERR1 


DAC 


2 3, MATRIX 


00980* 

00990* COMPUTE ADV REGRESS 

01000* 

01010* 

01020* INITIALIZE DEGREFS 
010 30* 

01040STAR4C TFLS DF , OBSER 


01050 


BD 


*+20,C0N7 


01060 


B 


MADV 


01070 


DORG 


*-3 


01080 


FA 


DF , ONE 



00750 

00830 
00831 
00839 
00841 
00849 
00851 
00859 
00861 
0O871 
00879 
008«1 
OO885 
00888 
00891 
00894 
00897 
00899 



00010 
00080 
00001 
00008 
00002 
00008 
00002 
00008 
00002 
00010 
00008 
00002 
00004 
0000 3 
0000 3 
0000 3 
0000 3 
0002 3 



00944 16 09651 50967 
00956 49 09600 00000 
00963 00005 0O69O 
00968 00005 50481 

00974 43 00994 00447 

00986 49 01024 onoon 

00994 









00.994 
uu 3 


16 


096^1 


51017 








1006 


49 09520 


nn nnn 








in 1 2 

U 1 U 1 J 


00005 


Pin f,Qn 

1 'U D 7U 








nin 1 A 

U l-U 1 


OOOQl; 


0088 1 


1090MADV 


BNC4 


ma nu 1 
















n 1 n 9 k 

U IU ZH 


h7 


1 1 82 


n nit nn 

uutuu 


1 1 00 


jp 


CNTR 1 , N 














010 36 


c 
ZD 


00H97 


00426 


n 1 1 1 n 

U 1 1 ' u 


TF 


*+ 1 R I Nin 

~ I U , 1 l<U 


















1066 


UUHOD 


1 1 90MADV0 


WNCD 


qQQQQ 
















010 60 


3R 


99999 


nnLnn 


n 1 1 3n 

u I I J\J 


AM 


madvh+a Rn in 

1 LM U V \Jl \J y \J\J f 1 \J 
















n 107 9 


1 1 


1066 


uuuou 


1 140 


SM 


CNTR 1 80 10 














1084 


12 


00897 


nnnRn 

UU U uu 


11 £0 


BP 


MADVO 
















1096 




1060 


011 00 


01 1 60 


TF 


PNUM , N 
















01108 


26 


00«85 


00426 


01170 


BT 


PNCH SUM1 
















nil 9n 


27 




nn cki 


1 1 ^0 


TP 


PNUM N 














nil 39 


26 


OO885 


nnft o £ 


11 90 


BT 


PNCH S 1 GMA 
















1 1 44 


27 


08446 


00546 


1 200 


TP 


PNUM,MSZ 
















1 156 


26 


OO885 


0061 4 


01210 


BT 


PNCH ,R 
















1 1 68 


27 


08446 


00 1 


1 220 


H 


















OH 80 


48 


00000 


00000 


1 2 30 


DORG 


y 


1 182 








1 2 ^OMAD V 1 


TF 


CNTR 1 , N 














01182 


26 


00897 


00426 


1 260 


TFLS 


H I GH , ZERO 














01 1 94 


16 


09651 


5 1 2 17 








1 206 


49 


096OO 


00000 








01213 


00005 


007 30 








01218 


00005 


00861 


01270 


TFM 


1,1,9 
















01224 


16 


00595 


oo5oi 


01280 


TF 


P1V2+H,+N0 
















01236 


26 


01271 


00486 


01290 


TF 


P I V 3+28 ,R 
















01248 


26 


013^0 


00551 


01300P! V2 


BD 


PI V6, 99999 
















01260 


43 


01482 


99999 


01310 


TFLS 


TEMPI ,H|GH 
















01272 


16 09651 


01295 








01284 


49 


09600 


00000 








01291 


00005 


50630 








01296 


00005 


00730 



01 320PI V3 


FS 


TEMP 1 , 99999 


01^2 1« 096*; 1 
01314 49 09500 
01321 00005 
01326 00005 


0T325 
OOdOO 
50630 

99999 


1 330 


BNN 


P 1 V 6 


01332 46 01482 


1 300 


01 340 


TFLS 


TEMPT ,FP00t 


01344 16 09651 
OI 356 49 09600 
01363 00005 
01368 00005 


5 1 367 
00000 
50630 
50841 


01350 


TF 


P|'v'4+28,PIV3+23 


01374 26 01414 


01330 


1 360P I V4 


FS 


TEMP 1 , 99999 


01386 16 09651 

1 398 49 09500 

1405 00005 
01410 00005 


51409 
00000 
50630 

99999 


01 370 


BP 


Pivb 


01416 46 01482 


1 100 


01380 


TF 


pi V5+28 , p 1 V3+28 


01428 26 01468 


01330 


01 390PI V5 


TFLS 


HIGH ,99999 


01440 16 09651 
01452 49 09600 
01459 00005 
01464 OO005 


_ 

01463 
00000 
007 30 

99999 


01400 


TF 


K, 1 


01470 26 00601 


00595 


01410PI V6 


AM 


1 , 1 , 10 










0T482 It 00595 


00051 


01420 


AM 


PI V2+1 1,1,10 


01494 11 01271 


00001 


14 30 


A 


P I V3+27 , CNTR 1 


01506 21 01329 


00897 


01440 


SM 


CNTR 1 , 1 , 10 










01518 12 00897 


ooo5i 


01450 


BP 


PI V2 


01530 46 01260 


01 100 


01460 


C 


HIGH, ZERO 


1 <;4? 94 007 30 

C.^ UU / _}U 


0086 1 


01470 


BE 


ADV 


01554 46 01624 


01200 


01480 


TFM 


RET3+6,*+20 


OI566 16 06598 


01586 


01490 


B 


MT 


01578 49 04830 


00000 


01500 


DORG 


*-3 


OI586 




01510 


FS 


DF , ONE 


01586 16 09651 
01598 49 09500 
01605 00005 
01610 00005 


01609 
00000 
50690 
50881 



01520 


B 


MADV 
















01616 


49 


01024 


00000 


01530 


DORG 


*-3 


01624 








01540ADV 


B TM 


r N n 1 w . 1 n 














01624 


17 


06602 


00000 


J ^0 


c 


NO 1 N ,N 














Q1636 


24 


00891 


00426 


o 1 560 


BE 


ADV 1 
















1 648 


46 


OI674 


1 200 


01570 


WATY 


ERR 1 
















1660 


39 


OO899 


00 100 


01 580 




















01672 


48 


00000 


00000 


01590 


DORG 


*_9 


01674 








01600.ADV1 


TF 


MCNT, NDEP 














01674 


26 


00888 


00429 


01610 


SM 


NOI N, 1 , 10 
















01686 


12 


00891 


00001 


1 620 


TF 


ADV2+1 1 , 1 DD 














OI698 


26 


01721 


00496 


01630ADV2 


TF 


L, 99999 
















01710 


26 


00604 


QQQQQ 
y j j z> j 


01640 


TF 


1 ,L 
















01722 


26 


00595 


00604 


01650 


SM 


I , 1 , 10 
















01734 


12 


00595 


0000" 1 


01660 


TF 


CNTR 1 ,N 
















01746 


26 


00897 


00426 


01670 


TF 


ADKK.R 
















01758 


26 


00561 


00551 


01680 


CM 


1 ,0,10 
















01770 


14 


00595 


00000 


01690 


BE 


CR 
















01782 


46 


01842 


01200 


017001 1 


A 


ADKK-1 ,CNTR 1 
















01794 


21 


00560 


00897 


01710 


SM 


CNTR 1,1,10 












01806 


12 


00897 


000O1 


01720 


SM 


1,1,10 








00001 








01818 


12 


00595 


1 7 30 


BP 


1 1 
















01830 


46 


01794 


01100 


1 740* 














01750* CALCULATE STANDARD ERROR 


OF DEPENDENT VARIABLE 






01760* 














01770CR 


TF 


CR 1+28 ,ADKK 
















01842 


26 01978 


00561 


01780 


TF 


CR 2+28, SIGMA 
















OI854 


26 02068 


00546 


01790 


SM 


CR2+28, 10,10 
















01866 


12 


02068 


000T0 



01800 


A 


CR2+27.L 














01878 


21 02067 


00604 


01810 


TF LS 


EY, OBSER 






01913 




1890 


16 09651 








1902 


49 09600 


00000 








01909 


00005 


DO 660 








01914 


00005 


50481 


01820 


TFLS 


TEMP 1 , DF 






51943 




01920 


16 09651 








01932 


49 09600 


00000 








01939 


00005 


50630 








01944 


00005 


50690 


01830CR 1 


FM 


TEMPI ,99999 






51973 






01950 


16 09651 








01962 


4 9 09540 


00000 








01969 


00005 


00630 








01974 


00005 


99999 


01840 


FD 


EY, TEMPI 












01980 


16 0965I 


52003 








01992 


49 09560 


00000 








01999 


00005 


50660 








02004 


00005 


50630 


01850 


FSQR 


EY.EY 






52033 




02010 


16 09651 








02022 


49 09580 


00000 








02029 


00005 


00660 








02034 


00005 


50660 


01860CR2 


FM 


EY, 99999 






02063 






02040 


16 09651 








02052 


49 09540 


00000 








02059 


00005 


50660 








02064 


00005 


99999 


01870* 












01880* 


CALCULATE REGRESSION COEFFICIENTS. 








01890* 












01900 


TF 


CNTR 1 ,N 










02070 


26 00897 


00426 


01910 


SM 


CNTR 1,1,10 






00051 




02082 


12 00897 


01920 


TF! 1 


1,1, 10 






00051 




2094 


16 00595 


01930 


TF 


REG2+28.R 












02106 


26 02266 


00551 


01940 


SM 


REG2+28, 10, 10 






000T0 




02118 


12 02266 


01950 


A 


REG2+27.L 












02130 


21 02265 


00604 


01960 


TF 


REG3+28, SIGMA 










02142 


26 02296 


00546 


01970 


SM 


REG3+28, 10, 10 






000 To 




02154 


12 02296 


01980 


A 


REG3+27.L 






00604 






02166 


21 02295 



01990 


TF 


REG4+28 , ADKK 














02178 


26 02326 


00561 
00546 


UZUUU 


1 r 


prrcxiR crirMA 

KLu|3+ZO,o 1 uriM 


021 90 


26 02356 


02010 


TF 


REG7+23.B 


02202 


26 02425 


00526 


02020REG 1 


G 


l,L 


02214 


24 00595 


00604 


02030 


D t 


in 
1 tL 


02226 


46 02544 


01200 


02040REG2 


TFLS 


TEMPI ,99999 


02238 
02250 
02257 


16 09651 
49 09600 
00005 


02261 

ooqoo 
60630 








02262 


00005 

16 09651 
49 09540 
00005 
00005 


99999 


02050REG3 


FM 


TEMPI ,99999 


02268 
02280 
02287 
02292 


52291 
00000 
00630 

99999 


02060REG4 


FD 


TEMP 1 , 99999 


02298 
02310 
02317 
02322 


16 09651 
49 09560 
00005 
00005 


02321 
00000 
00630 

99999 


Q2070REG5 


FD 


. TEMP 1 ,-99999 


02328 
02340 
02347 
02352 


16 09651 
49 09560 
00005 
00005 


02351 
00000 
00630 

99999 


02080 


CNF 


REG6, TEMP1-2 


02358 


44 02390 


00628 


02090 


CF 


TEMP 1-2 


02370 


33 Quo2o 


AAAAA 


02100 


B 


REG7 


Uzjo I 


It Q AoliflO 

M-y UZ4-UZ 


UUUUU 


021 10 


DORG 


*-3 


n*>3 on 






02120REG6 


SF 


TEMP 1-2 


n 9 3 on 


.?/ uuozo 




02130REG7 


TCI C 

1 r Lb 


99999, TEMPI 


02402 
02414 
02421 
02426 


49 09600 

00005 

00005 


00000 
99999 
00630 


02140 


C 


I ,L 


02432 


24 00595 


00604 


02150 


BP 


IGRL2 


02444 


46 02500 


01100 


02160ILEL 


A 


REG2+27 , CNTR 1 


02456 


21 02265 


00897 


02170 


AM 


REG5+28, 10, 10 










02468 


11 02356 


000 To 



02180 


AM 


REG7+23, 10, 10 


Q24SO 11 02425 000 TO 








02190 


. B 


TST 


02492 49 02568 00000 


02200 


DORG 


*-3 


02500 


02210IGRL2 


AM 


REG2+28, 10, 10 








02500 11 02246 OOOTO 


02220 


AM 


REG5+28, 10, 10 








02512 11 02356 000 To 


02230 


AM 


REG7+23, 10, 10 


02524 11 02425 000T0 


02240 


B 


TST 


02534 49 02548 OOOOO 


02250 


DORG 


*-3 


O2544 


02260 1 EL 


AM 


REG2+28, 10,10 








02544 11 02266 000 To 


02270 


AM 


REG5+28, 10, 10 


02556 11 02354 000T0 








02280TST 


SM 


CNTR 1,1, 10 








02568 12 00897 OOOCl 


02290 


AM 


1 , 1,10 


02580 11 00595 0000"l 






02300 


C 


I ,N 


02592 24 00595 00426 


02310 


BNP 


REG 1 


02604 47 02214 01 100 



02320* 

02330* CALCULATE STANDARD ERRORS OF COEFFICIENTS. 
02340* 



02350 


TF 


GTRjN 


02616 26 00592 00426 


02360 


TFM 


J, 1 , 10 


02628 16 00598 00051 


02370 


TF 


STE4+28.ADKK 


02640 26 02928 00561 


- O238O 


TF 


STE5+28.R 


02652 26 02958 00551 


: 02390 


TF 


STE 6+28, SIGMA 


02664 26 03108 00546 


02400 


TF 


STE7+23.SE 


02676 26 03133 00531 


- 02410STE1 


C 


J,L 


02688 24 00598 00604 


02420 


BN 


JLEL 


02700 47 02780 01300 


02430 


BE 


JEL 


02712 46 03152 01200 


- 02440JGRL 


TF 


P,L 


2 7 2 4 2 6 60 7 604 


02450 


TF 


Q,J 


02736 26 00610 00598 







02460 


BTM 


CADI J ,0, 10 






00050 




02748 


17 06300 


02470 


TF 


STE2+28,AD! J 














02760 


26 02856 00571 


02480 




STE2 


02772 


49 02828 


00000 


02490 


DORG 


*-3 


02780 






025OOJLEL 


TF 


P, J 






00598 




02780 


26 00607 


02510 


TF 


Q ,L 






00604 




02792 


26 00610 


02520 


BTM 


CADIJ.O, 10 






00000 




02804 


17 06300 


02530 


TF 


STE2+28,AD|J 










02816 


26 02856 00571 


02540STE2 


TFLS 


TEMPI ,99999 










02828 
02840 
02847 


16 09651 
49 09600 
00005 


02851 
00000 
00630 








02852 00005 


99999 


02550 


TF 


STE3+28.STE2+28 










O2858 


26 02898 02856 


02560STE3 


FM 


TEMP 1 , 99999 






52893 




02870 


16 09651 








02882 49 09540 


00000 








02889 


00005 


00630 








02894 00005 


99999 


02570STE4 


FD 


TEMPI ,99999 




16 09651 


02923 






02900 








02912 49 09560 


00000 








02919 00005 


00630 








02924 00005 


99999 


02580STE5 


TFLS 


TEMP2, 99999. 




16 09651 


02953 






02930 








02942 49 09600 


00000 








02949 00005 


00640 








02954 00005 


99999 


02590 


FS 


1 tMr 2 , 1 tlMr ] 










02960 
02972 
02979 


16 09651 

49 09500 
00005 


02983 
00000 
00640 








02984 00005 


00630 


02600 


FD 


TEMP2, OBSER 


02^0 
O3662 
03009 


16 09651 
49 09560 
00005 


30 1 3 
00000 
00640 








03014 00005 


00481 


02610 


FSCR 


TEMP2 , TEMP2 






03043 




03020 


16 09651 








3032 49 09580 


00000 








03039 


00005 


00640 








03044 


00005 


00640 



02620 


FM 


TEMP2 , EY 


02630STE6 


FD 


TEMP2, 99999 


02640STE7 


TFLS 


99999, TEMP2 


02650 


AM 


STE7+23, 10, 10 


02660 JEL 


A 


STE5+27.CTR 


02670 


AM 


STE6+28, 10, 10 


02680TST1 


AM 


J, 1, 10 


02690 


SM 


CTR , 1 , 10 


02700 


BP 


STE 1 


02710* 

02720* CALCULATE T. 
02730* 

02740 TF CNTR.NOIfJ 


02750 


TF 


TR1+23.T 


02760 


TF 


TR1+2S.B 


02770 


TF 


TR2+23.T 


02780 


TF 


TR2+28.SE 


02790 TR1 


TFLS 


99999,99999 


02800TR2 


FD 


99999,99999 


02810 


AM 


TR1+23, 10, 10 


02820 


AM 


TR 1+28, 10, 10 



03050 1 6 3 65 1 530 7 3 

3062 49 09540 00000 

03069 00005 50640 

03074 00005 50660 

3080 16 09651 5310 3 

03092 49 09560 00000 

03099 00005 50640 

03104 00005 99999 

031 10 16 09651 53133 

03122 49 09600 00000 

03129 00005 99999 

03134 00005 00640 

03140 11 03133 OOOTO 

03152 21 02957 00592 

03164 11 03108 OOOTO 

03176 11 00598 00051 

03188 12 00592 00051 

03200 46 02688 01 100 



03212 26 00589 00891 

03224 26 03295 OO536 

03236 26 03300 00526 

03248 26 03325 00536 

03260 26 03330 00531 

03272 16 09651 53295 
03284 49 O96OO 00000 
03291 00005 99999 
03296 00005 99999 

03302 16 09651 53325 
03314 49 09560 00000 
3321 00005 99999 
03326 00005 99999 

03332 11 03295 OOOTO 

03344 11 3300 000 TO 



02830 


AM 


TR2+23, 10, 10 


02840 


AM 


TR2+28, 10, 10 


02350 


SM 


CNTR, 1 , 10 


02860 


BP 


TR1 


02370* 
02880* 
02890* 
02900 


:alculate constant ter 

BO *+20,CON7 


02910 


B 


ceo 


02920 


DORG 




02930 


TFLS 


AO, ZERO 


02940 


B 


CSQR 


02950 


DORG 


*-3 


Q2960CC0 


TF 


CC1+28.SUM1 


02970 


SM 


cci+28, 10, 10 


02980 


A 


CC1+27.L 


02990CC1 


TFLS 


AO, 99999 


Q3QQQ 


TF 


CNTR.N 


03010 


TFM 


1 ,1,10 


03020 


TF 


CC3+28.B 


030 30 


TF 


CQ4+23,SLiMl 


03040CC2 


C 


1 ,L 


03050 


BE 


CCMOD 


03060CC3 


TFLS 


TEMP 1 , 99999- 



03356 11 03325 000 To 
03368 11 03330 000T0 
03380 12 00589 00001 
33S2 46 03272 01100 

340^ 43 3424 00447 
3416 it 9 03462 00000 
3424 

03424 16 09651 53447 
3436 49 09600 00000 
03443 00005 50650 
03448 00005 50861 

03452+ 49 03750 00000 

34 62 

03462 26 03526 00541 

03474 12 03526 000T0 

03486 21 03525 00604 

03498 16 09651 03521 
03510 49 09600 00000 
03517 00005 50650 
03522 00005 99999 

03528 26 00589 00426 

03540 16 00595 00051 

03552 26 03628 00526 

03564 26 03658 00541 

03576 24 00595 00604 

03588 46 03714 01200 

03600 16 09651 53623 
03612 49 09600 00000 
03619 00005 50630 
03624 00005 93999 



03070CCi+ 


FM 


TEMP 1 ,99999 












3&20 


16 09651 036&3 








3642 


49 09540 00000 








03649 


00005 50630 








03654 


00005 39999 


O308O 


FS 


AO , TEMP 1 










03660 


16 09651 53683 








03672 


49 09500 00000 








3679 


00005 50650 








3684 


00005 50630 


03090 


AM 


CC3+28, 10, 10 












3690 


11 03628 000T0 


03100 


AM 


ccu+28, 10, 10 












03702 


11 03658 000T0 


031 10CCM0D 


AM 


1 , 1, 10 










3714 


11 00595 0005 1 


03120 


SM 


CNTR, 1,10 










03726 


12 00589 0005 1 


03130 


BP 


CC2 












373§ 


46 357 6 01100 



03140* 

03150* CALCULATE SUM OF SQUARED RESIDUALS. 
03160* 



03170CSQR 


TF 


SS 1+28, SIGMA 












03750 


26 3838 00546 


03180 


SM 


ssi+28, 10,10 












3762 


12 03838 000T0 


03190 


A 


SS1+27.L 












03774 


21 03837 00604 


03200 


TF 


SS2+28.SS1+28 












03786 


26 03868 03838 


03210 


TF 


SS3+28,ADXK 












03798 


26 03898 00561 


03220SS1 


TFLS 


SQR, 99999 












03810 


16 09651 53833 








3822 


49 09600 00000 








03829 


00005 50680 








03834 


00005 99999 


03230SS2 


FM 


SCR , 99999 












03840 


16 09651 53863 








3852 


4 9 9540 00 000 








3859 


00005 50680 








3864 


00005 39999 


03240SS3 


FD 


SOR, 99999 












03870 


16 09651 53893 








03882 


49 09560 00000 








3889 


00005 50680 








3894 


00005 39999 


03250 


FM 


SOR.OBSER 










03900 


16 09651 53923 








03912 


49 09540 00000 








03919 


00005 50680 








3924 


00005 50481 



© 



03260* 

03270* CALCULATE R SQUARED. 
03280* 





jp 


RR 1+28, S I GMA 


03300 


SM 


RR 1+28 ,10,10 


03310 


A 


RR1+27,L 


03320 


TF 


RR2+28,RR1+28 


03330RR1 


TFLS 


TEMPI ,99999 


03340RR2 


FM 


TEMPI ,99999 


03350 


BD 


*+20,C0N7 


03360 


B 


RR4 


03370 


DORG 


*-3 


03380 


jp 


PR 2+ ft q IJM 1 

f\l\ J\C.\J ^ J Ul ! 1 


03390 


SM 


RR3+28, 10,10 


03400 


A 


RR3+27,L 


03410 


TF 


RR35+28.RR3+28 


03420RR3 


TFLS 


TEMP2, 99999 


03430RR35 


FM 


TEMP2, 99999 


03440 


FS 


TEMPI ,TEMP2 


03450RR4 


FM 


TEMPI .OBSER 



03930 26 04006 00546 

03942 12 04006 OOOTO 

03954 21 04005 00604 

03966 26 4 3 6 400 6 

03978 16 09651 04001 
03990 49 09600 00000 
03997 00005 00630 
04002 00005 99999 

04008 16 09651 04031 
04020 49 09540 00000 
040 27 0000 5 50630 
04032 00005 99929 

04038 4 3 04058 00447 

04050 49 04196 00000 

04058 

04058 26 04134 00541 

04070 12 04134 000 To 

04082 21 04133 00604 

04094 26 04164 04134 

04106 16 09651 04129 

04118 49 09600 00000 

04125 00005 50640 

04130 00005 99999 

04136 16 09651 04159 
04148 49 09540 00000 
04155 00005 00640 
04160 00005 99999 

04166 16 09651 04189 
04178 49 09500 00000 
04185 00005 OO63O 
04190 00005 50640 

04196 16 09651 04219 

04208 49 09540 00000 

04215 00005 00630 

04220 00005 00481 



03460 TFLS TENP2.SPR 



03470 FD TEMP 2 , TEMP 1 



03480 TFLS RSQR , ONE 



03490 FS RSQR , TEMP2 



04226 16 09651 54249 

04238 49 09600 00000 

04245 00005 50640 

04250 00005 50680 

04256 16 09651 5427S 
04263 49 09560 00000 

04275 00005 50640 

04280 00005 50630 

04286 16 09651 5430S 

04298 49 09600 00000 

04305 00005 00670 

04310 00005 00881 

04316 16 03651 04339 

04328 49 09500 00000 

04335 00005 00670 

04340 00005 50640 



03500* 












03510* SET 


INDEXES OF INDEPENDENT VARIABLES. 








03520* 












03530 


TFM 


1 , 1, 10 






00051 






04346 16 


00595 


03540 


TF 


CNTR 1 , N 












04358 26 


00897 


00426 


03550 


TF 


DEX2+6, ID 


04370 26 


044 12 


00491 


O356ODEX 1 


C 


1 ,L 


04382 24 












00595 


00 604 


03570 


BE 


DEX 3 












04394 46 


04430 


01200 


03580DEX2 


TF 


99999, 1 


0440 6 2 6 




00595 


03590 


AM 


DEX2+6.2, 10 






00052 








04418 11 


044 1 2 


03600DEX3 


AM 


1,1,10 






0005 1 








04430 11 


00595 


03610 


SM 


CNTR 1,1, 10 












044 42 12 


00897 


0005 1 


03620 


BP 


DEX 1 


044 5 4 4 6 


04382 


01 100 


03630 


TFM 


RET4+6,*+20 












044 66 1 6 


08158 


544 8 6 


03640 




PST 


04478 49 


07802 


00000 


03650 


DORG 


*-3 


04486 






03660 


BD 


AOVMOOjCONS 


044 86 4 3 


04518 


0044S 


03670 


TFM 


RET6+6,*+20 


04498 16 


07800 


54518 



036&0 B PR EG 

03690 DORG ---3 

03700ADVMOD All ADV2+11,2,10 
03710 SM MCNT,1,10 

03720 BP ADV2 



03730- 
03740* 
O375O- 

G376GG4-TRA e 



IS TRANSFORfiEO MATRIX PUNCKE. 

03770 B CMRE 

03780 DORG *-3 

03790 TF Pf4Uf4,-MS-Z 

03800 BT PNCH.R 
03810* 

03820* IS MATRIX RE INVERTED. 

038 30'- 

03840CMRE BD *+20,C0N13 



03850 

03860 

03870* 
03880* 
03890* 
03900 

03910 

03920 

03930 

03940REJ 

03950 

3960 

03970RE2 

3980 



B F I NAL 
DORG *-3 

RE I (WERT MATRIX AND PUNCH, 
TF COUNT, N 
TFM K^UIO 
TF RE 1 + 11, I ND 
TF RE 2+11, I ND 
BMR *+20, 99999 
B REMOD 
DORG *-3 
CD *+2£ f 99999- 
B REi \0D 



045 10 


ky 


O7056 


00000 


045 18 








01+5 1 8 


1 1 


01721 


00002 




1 2 


00888 


0000*1 


04542 


46 


01710 


01 100 


OLc^u 


43 


04574 


00452 


OI+566 




O4598 


00000 


04574 








04574 


26 


00885 


00614 


04586 


27 


0844 6 


00551 


04598 


43 


04618 


00453 


04610 


49 


04810 


00000 


04618 








04618 


26 


OO586 


00426 


04630 


16 


00601 


00001 


04642 


26 


04677 


00486 


04654 


26 


04697 


00486 


04666 


45 


04686 


99999 


04678 


4 9 


04726 


00000 


04686 








04686 


43 


04706 


99999 


04698 


49 


04726 


00000 



o 



03990 


D OR 


*-3 


04706 








04000 


TF' i 


RET3+6,*+20 
















04706 


16 


06598 


04726 


04010 




; it 
















04718 


49 


04830 


00000 


04020 


DORG 


*-3 


04726- 








04O3OREM0D 


A: ; 


K, 1 , 10 
















04726 


1 1 


00 60 1 


0000" 1 


04040 


A ! i 


RE 1 + 11 , 1, 10 
















047 38 


1 1 


4 677 


000(51 


04050 


A ' 


RE2+11.1.10 
















0475-0 


1 1 


04697 


ooo5 J 


04060 


SM 


COUNT, 1 , 10 














047&2 


12 


00586 


0000" 1 


04070 


DP 


RE 1 
















04774 


46 


Oi+666 


01 100 


04080 


TF 


PNUM,MSZ 
















04786 


26 


OO885 


00614 


04090 


BT 


PNCH,R 
















04798 


27 


08446 


00551 


04 1 0OF I NAL 


RNCD 



















04810 


36 


00000 


00500 


04 1 10 



















Q4B22 


49 


OQOQQ 


00000. 


04 1 20 


DORG 


-3 


04o30 








04 1 30* 
04140* MA 














TR | X TRANSFORMATION SUBROUTINE. 










04 1 50* 














04 1 60* 


TEST IF ADDU1G OR Dt LET IMG VARIABLE 










04 1 70* 














04 1 oOMT 


TF 


MT1 + 11JND 
















04830 


26 


04877 


0048o 


04190 


SM 


MT1+11 ,1 , 10 
















04842 


1 2 


04877 


0005 1 


Q42Q0 


A 


MT1+11 ,K .. 
















04854 


21 


04877 


0060 1 


04210MT 1 


BD 


DEL, 99999 
















U40D0 


4 3 


049 1 


99999 


04220 


TFM 


GTFM1+11 ,0 














04878 


16 


0520 3 


Ooooo 


Q42 30 


Tm; 


CA99+1U 1 ■ 
















04890 


15 


06453 


00001 


04240 


B 


MT2 
















04902 


49 


04934 


ooooo 


04250 


DORG 


*-3 


04910 








04260DEL 


TFM 


GTf MI+11 , 5 - 
















04910 


16 


05203 


00005 


04270 


TDM 


CA99+11 ,0 
















04922 


15 


06453 


ooooo 



© 



04280MT2 

0k2-j0 

04300CKK1 

04310 

04320 

04330 



TF P,K 

TF C.K 

BTM CAl)|J,0,10 

TF CKK2+28.ADIJ 

TF CKK3+23.ADIJ 

TF CKK4+23.ADIJ 



04 340* 
04350* 
04360* 
0437OCKK2 



COMPUTE INVERSE OF PIVOT ELEMENT, 
TFLS TEMP 1,99999 



0433OCKK3 TFLS 99999, ONE 



04390CKK4 FD 



99999, TEMPI 



04400 


TF 


GTFM7+28 ,AD 1 J 


04410 


TF 


RTFM1+28.A0IJ 


04420 


TF 


RTFM1+23.ADIJ 


04430 


TF 


CTFM2+28,ADIJ 


04440 


AM. 


RTFMI+23,10,10 


04450* 

04460* GENERAL 
04470* 

04480GENTFM TFM 


MATRIX ELEMENT 

1 , 1, 10 


04490 


TFM 


J, 1, 10 


04500 


TF 


ADR I J ,R' 


04510GTFM1 


TFM 


. SIGN 3,0 


04520 


C 


K , 1 



04y34 26 00607 00601 
04946 26 00610 00601 
04958 17 06300 00000 
04970 26 05034 00571 
04982 26 05059 00571 
04994 26 O5O89 00571 



05006 16 OS651 05029 

05018 49 09600 00000 

05025 00005 OO63O 

05030 00005 99999 

05036 16 09651 55059 

05048 49 09600 00000 

05055 00005 99999 

05060 00005 00881 



05066 
05078 
05085 
05090 

05096 

05108 

05120 

05132 

05144 



16 09651 
49 O956O 
00005 
00005 

26 05484 

26 06050 

26 06045 

26 06196 

11 06045 



05089 
00000 

99999 
00630 

00571 

00571 

00571 

00571 

000T0 



05156 16 00595 0000*1 
05 168 16 00598 00001 
05180 26 00576 00551 
05192 16 00581 50000 
05204 24 00601 00595 



04530 


LiE 


NEXT 


045^0 


r 


K, J 


04550 


BE 


NEXT 


04560 


BH 


KGRJ 


04570 


A 


SIGN3.GTFM1+1 1 


04 5 00 


TF 


P,K 


04590 


TF 


0, J 


04&00GTF, i2 


BTM 


CAO|J,0, 10 


04610 


TF 


GTFM4+28.ADI J 


04620 


C 


1 ,K 


04630 


BM 


IGP.K 


04640 


TF 


P.I 




jp 


C K 


04660GTFM3 


BTM 


CADIJ.O, 10 


04670 


TF 


GTFM4 1+28 , AD 1 J 


04680GTFM4 


TFLS 


TEMP 1,99999 


04690GTFM41 


FM 


TEMPI ,99999 


04700GTFM7 


FM 


TEMPI ,99999 


04710 


BD 


GTFM5,SIGN3 


04720 


TF 


GTFM6+23.ADRIJ 


04 7 30GTFM6 


FS 


99999, TEMPI 



268 



05216 


46 


05874 


01200 


05228 


24 


00601 


00598 


05240 


46 


05874 


01200 


05252 


46 


055S8 


01 100 


05264 


21 


OO58I 


05203 


05276 


26 


00607 


00601 


05288 


26 


00610 


00598 


05300 


17 


06300 


00050 


05312 


26 


05424 


00571 


05324 


24 


00595 


00601 


05336 


46 


05730 


01 100 


053^8 


26 


00607 


00595 


05360 


26 


00610 


00601 


05372 


17 


06300 


00050 


05384 


26 


05454 


00571 


05396 
05408 
05415 
05420 


16 09651 
49 03600 
00005 
00005 


55419 
00000 
50630 

9000 


05426 
05438 
05445 
05450 


16 02651 
49 09540 
00005 
00005 


55^2 
00000 

50630 

qoooo 


05456 
05468 
05475 
05480 


16 03651 
49 09540 
00005 
00005 


5547S 
00000 
50630 


05486 


43 05548 


00581 


05498 


26 


05533 


00576 


05510 
05522 
0552S 
05534 


16 02651 
49 09500 
00005 
00005 


55533 
00000 

00 000 

50630 



269. 



04740 B NEXT 

04750 DORG *-3 

04760GTFM5 TF GTFM8+23.ADR I J 

04770GTFM8 FA 99999, TEMPI 



04780 

-94790- 



B NEXT 
DORC --3 



04800* 

04810* K GREATER THAN J. 
04820* 

04830KGRJ TF P,J 

04840 TF Q,K 

04850 TF KGRJ 1+11, I ND 

04860 SM KGRJ 1+11,1,10 

04870 A KGRJ 1+11, J 

04880 TF KGRJ 1 1+1 1 , KGRJ 1+11 

04890KGRJ11 BNR KGRJ 1,99999 



04900 B GTFM2 

04910 DORG *-3 

04920KGRJ1 BD KGRJ 2, 99999 



04930 B GT-FM2 

04940 DORG *-3 

0495OKGRJ2 AM S|GN3,5,10 

04960 B GTFM2 

04970 DORG *-3 
04980* 

04990* 4 - GREATER TWAW K-. 

05000* 

05010IGRK TF P,K 



05540 49 05874 00000 
05548 

05548 26 O5583 00576 



05560 16 0945V 
05572 49 09520 
05579 00005 
05584 00005 



055&3 
00000 

99999 

So 630 



05590 49 05874 00000 
05598 



OS59&- 24 
05610 26 
05622 26 
05634 12 
05646 21 
O5658 26 
O56-7O- 45 
05682 49 
05690 
O5690 4 3 
05702 49 
05710 
05710 11 
05722 49 
05730 



00407 00 598 
00610 00601 
05701 00486 
05701 00051 
05701 00598 
05681 05701 
O569O 99999 
05300 00000 

05710 99999 
05300 00000 

00581 00055 
05300 00000 



05730 26 00607 00601 



05020 


A 


S IGN3.GTFM1+1 1 


05030 


TF 


Q, 1 


05040 


TF 


IGRK1 + 1 1 , 1 ND 


05050 


SM 


IGRK1+1 1,1,10 


05060 


A 


IGRK1+11 , I 


05070 


TF 


IGRK11+M , IGRK1 + 1 


05080IGRK1 1 


BNR 


IGRK1 ,99999 


05090 


B 


GTFM3 


05100 


DORG 


*-3 


05110IGRK1 


BD 


IGRK2, 99999 


05120 


B 


GTFM3 


05130 


DORG 


*-3 


05140IGRK2 


AM 


S IGN3.5, 10 


05150 


B 


"GTFN3 


051 60 


DORG 


*-3 


05170* 
Q51S0*. _.SEL 
05190* 
0520QNEXT 


MP_.MEXI _IRAMS_F ORMA T 1 ON 
AM ADR1J,.10,10 


05210 


C 


N,J 


D5-220 


££.__ 


N1 


05230 


AM 


J, 1, 10 


05240 


B 


GTFM1 


05250 - 


_D_QRG- 




05260N1 


C 


N,l 


05270 


BE 


ROV/TFM 


O528O 


AM 


1,1,10 


05290 


TF 


J , 1 



05742 21 005SI 05203 
05754 26 00610 00595 
05766 26 05845 00486 
_ U- O5 3/1 5 0000 4- 
05790 21 05845 00595 
O58O2 26 05825 05845 
05814 45 05834 99999 
05826 49 05372 00000 
05834 

05834 43 0585^ 99-9-9-9 
05846 49 05372 00000 
05854 

_ Q5854 1 1- 0058 1 00055 
05866 49 05372 00000 
05874 



05874 11 

05886 24 
65898 46 
05910 11 
05922 49 
"0593b 
05930 24 
05942 46 
05954 11 
05966 26 



00576 000T0 

00426 00598 
65930~oT200 
00598 00001 
05192 00000 

00426 00555 
05986 01200 
00595 00051 
00598 00595 



n, 



© 



05300 
05310 



B GTFM1 
DORG *-3 



05320* 

05330* PIVOT ROW TRANSFORMATION. 
05340* 

05350R0WTFM TF- J,K 

05360 C J,N 

05370 BE COLTFM 

05 3B0R TFU \ FM - 99-999-, 9 9999 



05390 
05400 
05410 
05420 



AM J, 1,10 
AM RTFM1+23, 10, 10 
B R0V/TFM+12 
DORG *-3 



05430* 

05440* PIVOT COLUMN TRANSFORMATION 
05450* 

05460C0LTFM TF l,K 

05 'i 70C TF4Uf- SN-- — 10- 



05480 
05490 
05500 



BE 
TF 
TF 



CA98 



O5510CTFM1 BTH CAD IJ, 0,10 



05520 



TF 



05530CTFH2 FM- 



CTFM2+23,ADIJ 

99999 r 99999 



05540 TF CTFM3+11.CTFM2+23 

05550 SM CTFM3+11.2.10 



05978 


49 05192 


OOOOO 


05986 










26 00598 


UUOU 1 


05998 


24 00598 


00426 


06010 


46 


06084 


01200 


06022 
06034 
06041 
06046 


16 09651 
49 09540 
00005 
00005 


06045 
00000 

99999 
99999 


06052 


11 


00598 


oooOi 


060 64 


11 


06045 


000T0 


06076 


49 


05998 


00000 


06084 








06084 


26 


00595 


00601 


06096 


12 


00595 


0000" 1 


UO IUO 


46 


06406 


n 1 inn 
u 1 zuu 


Uo J ZU 


26 


00 607 


00595 


06132 


26 


00610 


00 601 


06144 


17 


06300 


oooOo 


O6I56 


26 


06191 


00571 


06168 
06180 
06187 
06192 


16 OS651 
49 09540 
00005 
00005 


06191 
00000 

99999 
99999 


06 198 


26 06257 


06191 


06210 


12 06257 


00052 



05560 TF CTFM5+6.CTFM3+11 

05570 TF CTFN6+6.CTFM3+11 

05580CTFM3 BNF CTFM6, 99999 

05590CTFM5 CF 99999 

05600 B CTFM4 

05610 OORG *-3 

05620CTFM6 SF 99999 

05630 B CTFM4 

05640 DORG *-3 

05650* 

05660* CALCULATE ELEMENT ADDRESSES. 
05670* 

05680 DS 2 



05690CADIJ 


S 


Q.P 


05700 


TF 


APIJ.R 


05710 


TF 


CNTR1.N 


05720AAA 


SM 


P» 1 » 10 


05730 


BE 


BE .. ... 


05740 


A 


AD1J-UCNTR1 


05750 


SM 


CNTR1,1,10 


0576Q 


B 


AAA... _ 


05770 


DORG 




05780BB 


A 


ADIJ-1.Q 


Q572Q 


BB _ 




O58OO 


DORG 




05810* 
O582O* SET 
O5B3O* 
05840CA98 


IND. 
TF 


CA 99+6, IND 



06222 26 06264 06257 
06234 26 06284 06257 
06246 44 06278 99999 
06258- 33 9399£ OOOOO 
06270 49 06096 OOOOO 
O6278 

06278 32 99999 OOOOO 
06290 49 06096 OOOOO 
06298 

06299 00002 

06300 22 00610 00607 
06312 26 0057 T 00551 
06324 26 00897 00426 
06336 12 00607 0000 1 
06348 46 06392 01200 
06360 21 00570 00897 
06372 12 00897 OOOOl 
06384 49 06336 OOOOO 
06392 

06392 21 00570 00610 
06404 42 OOOOO OOOOO 
06406 

06406 26 06448 00486 



05850 
05860 
05870CA99 



SM CA99+6,1,10 
A CA99+6.K 
TDM 99999,0 



05880* 

~\J Jul T 

05900* 

05910 TF 



04418 12 G644S 00051 
06430 21 06448 00601 
06442 15 99999 00000 



^ELEMENTS— -£ERO-. 



05920 
5 930 



TF 

-m- 



CNTR \,H 
SP1+11.R 
SPli 11,2,10 



0594OSP1 BNF SP 3, 99999 
05950 TF SP2+23.SPH-H 

059 6 AH SP2 - i23,2, 10 — 

05970SP2 TFLS 99999, ZERO 



0598OSP3 A 
05990 SM 
06000 BP 



SP1+10.CNTR1 
CNTR 1,1, 10 
SP1 



06010RET3 B 99999 

06020 DORG *-3 

06030* * * * * * * 

06040* SUBROUTINE TO CALCULATE NOltU- 

06050* * * * * * * 
06060 DS 2 

06070CN01N TFM NO! N, 0,9 



06454 26 00897 

06466 26 06501 

06478 12 06501 

06490 44 06556 

06502 26 06549 

06514 11 06549 

06526 16 09651 
04538 49 09600 
06545 00005 
06550 000O5 

06556 21 06500 

O6568 12 00897 

04580- 46 0649O 

06592 49 99999 

06600 



00426 
00551 
00052 

99999 

06501 

00052 

56549 
00000 
99999 
00861 

00897 

00051 

01 10O 

00000 



06080 



06090 
O6100CN1 

04+10 

06120 



-TF- GW4+-14 r lNO 
TF CNTR 1 ,U 
BD *+ 20, 99999 

-B CNMOD 



DORG *-3 



06601 00002 

06602 16 00891 00500 
06614 26 06649 00486 
06626 26 00897 00426 
06638 43 O6658 99999 
06650 49 06702 00000 
06658 



274. 



06130 
06140CN2 
06150 
06160 
06170 

06180CNM0D A 
06190 
06200 
06210 
06220 



TF CN2+11.CN1+11 
BNR *+20, 99999 
B CNMOD 
DORG *-3 
AM N0|N,1,10 

CN 1+11, 1,10 
CNTR 1 , 1 , 10 
CN 1 



SM 
BP 
BB 

DORG *-9 

06230HDNG0 DAC 21.DEP VAR 

06240HDNG1 DAC 18.STD ERR Y.X 

06250HDNG2 DAC 18,R SQUARED 



06260HDNG3 DAC 18, SUM SOR RES 
06270HDNG4 DAC 21,1 MD VAR USED 
06280HDNG5 DAC 18, CONSTANT TERM 



= (3> 
= @ 
= 3 



O6658 26 066&1-- 0664 9 
06670 45 0669O 99999 
06682 49 06702 00000 

-06690 

06690 11 00891 00051 
06702 11 06649 00051 
06714 12 00897 OOOCl 
06726 46 06638 01100 
06738 42 00000 00000 

06740 --- 

06741 00021 
06783 00018 

_ 06819- QQfllB i 



06290HDNG6 DAC 16, VAR 
06300HDNG7 DAC 28, 



COEFF? 
STD ERR 



06855 00018 
06891 00021 
069-33 00018- 



06-969 00016 
T RATION 

07001 00028 



06310* * * * * * * 
-O632O* SURR OUT I NF TO PR 1 NT R FKR S | ON c; T ^ T[ c: T[ rc: 

063 30* 



06340PREG 
06350 

-063-60 

06370 

06 380 

063-90- 

06400 



RCTY 
RCTY 

_\/ATY HONDO. 

BT WRNUU,L 
RCTY 

1JAIY— tiD-NG-1 

BTFS FLTF I X , EY 



07056 34 00000 00102 
07068 34 00000 00102 



07080 39 06741 00100 
07092 27 08536 00604 
07104 34 00000 00102 



07116 39 067&3 00100 

07128 16 09651 57151 
07140 49 09620 00000 
07147 00005 58584 
07152 00005 - 50660 



© 



06410 WATY OUTPUT-20 

06420 RCTY 

06430 WATY KDNG2 

06440 BTFS FLTFIX.RSQR 



06450 
-06460 



06490 
06500 



WATY OUTPUT-20 
KQJX 



06470 WATY HONG 3 

06480 BTFS FLTF IX, SPR 



WATY OUTPUT-20 
RCTY 



06510 WATY HDNG4 

06520 BT WRNUM.NOIN 

06530 RCTY 

06540 RCTY 

06550 WATY HDNG5 

06560 BTFS FLTFIX ,A0 

06570 WATY OUTPUT-20 

06580 RCTY 

06590 RCTY 
06600 WATY HDNG6 

-06410— WATY HQU&J- 

06620 RCTY 



07158 39 05451 

07170 34 00000 

07182 39 06819 

07194 16 09651 
07206 49 09620 
07213 00005 
07218 00005 

07224 39 09451 

07236 34 00000 

07248 39 06855 

07260 16 09651 
-07272- 49 ©9420- 
07279 00005 
07284 00005 

O7290 39 09451 

07302 34 00000 

07314 39 06891 

07326 27 08536 

0733& 34- 00000 

07350 34 00000 

07362 39 06933 

07374 16 09651 
07386 49 09620 
07393 00005 
07398 00005 

07404 39 09451 

07416 34 00000 

07428 34 00000 

07440 39 06969 

07452 39 07001 

07464 34 00000 



00100 

00102 

00100 

57217 
00000 
08584 
00670 

00100 

00102 

00100 

07283 
OOOOO 
08584 
00680 

00100 

00102 

00100 

00891 

00102 

00102 

00100 

07397 
OOOOO 
08584 
00650 

00100 

00102 

00102 

00100 

00100 

00102 



06630 


TF 


CNTR 1 ,MOI N 




n A£kn 
u oo^u 


1 r 


W1+1 1 , I D 


07476 26 00397 00891 


06650 


TF 


W2+28,B 


07488 26 07547 00491 


06660 


TF 


W3+28.SE 


07500 26 07588 OO526 


06670 


TF 


W4+28,f ~ ^ 


07512 26 07642 00531 


06680W1 


BT 


WRNUM, 99999 


07524 26 07696 00536 


06690 


TBTY 




07536 27 08536 99999 


06700V/2 


BTFS 


FLTF 1 X , 99999 


07548 34- OOOOO 00 108 


-06710- 


.... WATY QUTPUT-20 


07560 16 09651 07583 
07572 49 09620 OOOOO 
07579 00005 08584 
07584 00005 59999 


06720 


TBTY 




07590 39 09451 00100 


067 30 W 3 


BTFS 


FLTFIX, 99999 


07602 34 OOOOO 00108 


06740 


WATY 


OUTPUT-20 


07614 16 09651 07637 
07676 UQ np6?n nnnnn 
07633 00005 08584 
07638 00005 59999 


06750 


TBTY 




07644 39 09451 00100 


06760W4 


BTFS 


FLTFIX, 99999 


07656 34 OOOOO 00108 


J16?7D_ 


— WATY. 


J2LLT£UL=20_ . . 


07668 16 OS65I 57691 
07680 49 09620 OOOOO 
07687 00005 58584 
07692 00005 59999 


O678O 


RCTY 




07698 39 09451 00100 


06790 


AM 


Wl+11,2, 10 


07710 34 OOOOO 00102 


.06800 


- .- ML 


W2+28^-ia r ia 


07722 11 07547 00002 


06810 


AM 


W3+28.10, 10 


07734 11 07588 000T0 


06820 


AM 


W4+28,10,10 


07746 11 07642 OOOTO 


068 30 


SM - 


CNTRU-l, 10 


07758 11 07696 OOOTO 


06840 


BP 


wi 


07770 12 00897 OOOOl 



07782 46 07536 01 



06850RET6 B 99999 
06860 DORG *-3 

06870* * * * * * * * 
06880* SUBROUTINE TO PUNCH STEP RESULTS. 
06890* * * * * * * * 
06 9 00PST AM PST2 + 11,1,10 

06910 TF 0UT-77.PST2+ 11 

0492O TF 0UT-74.L 

06930 TF OUT - 71 t NO|N 

04940 TF 0UT-48,N 

04950 TFLS -0WT-50-, AO- 



06960 TFLS 0UT-40.RSQR 



06970 TFLS 0UT-30,EY 



06980 TFLS 0UT-20.F 



— 06990 TFLS OLIT-IO.SQR- 



07000 TFH BR+6,*+20 

07010 B PST2 

07020 DORG *-3 

07030 TF COUNT , N 

07040 TF CD+6JND 

07050CO WNCD 99999 



07794 49 99999 00000 
07802 



07802 11 08175 OOOOl 

07814 26 00753 08175 

07826 26 00756 00604 

07838 26 00759 00891 

07850 26 00762 00426 

07862 16 09651 07885 
n7 ft 7 ii L.Q- nnAnn nnnnn 

\J f \J f ■ I I _J U^UUU \J\J\J\S\J 

0788 1 00005 50780 
07886 00005 00650 

07892 16 09651 S7915 

07904 49 09600 00000 

07911 00005 507 90 

07916 00005 00670 

07922 16 09651 57945 
07934 49 09600 00000 
07941 00005 50800 
- 079 4 6 O0005 - 50460 

07952 16 09651 57975 
07964 49 09600 00000 
07971 00005 50810 
07976 00005 50700 

07982 16 09651 58005 
07994 49 09600 00000 
08001 00005 50820 
08006 00005 50680 

08012 14 08218 58032- 

08024 49 08164 00000 

08032 

08032 26 00586 00424 
08044 26 08062 00486 
08056 38 99999 00400 



07060 
07070 
07080 
07090 
07100 
071 10 

07120 

07130RET4 

07140PST2 

07150 

07 160 

07170 

07180BR 

07190M0VER 

07200MAD 

07210 

07220MV1 

07230 

07240 

07250 

07260 

07270MV2 

07280MV3 

07290MV4 



AM 
SM 
BP 
AM 
BT 
BT 
BT 
B 

TFM 

TFH 

V/NCD 

AM 

B 

TF 
DS 
TF 
CM 
BP 
TF 
B 

DORG 
TFM 



CD+6,80, 10 
COUNT, 80, 10 

CD 

PST2+23, 1, 10 

MOVER, B 

MOVER, SE 

MOVER.T 

99999 

OUT-4,0,9 

OUT, 1,8 

OUT-79 

PST2+23, 1, 10 

99999 



MV4+28.MAD 
,M0VER-1 
TEMPI, NO IN 



TEMP 1,7, 10 
MV2 

COUNT, TEMPI 

MV3 

*-3 

COUNT, 7, 10 



TFM 
TFLS 



MV4+23.0UT-70 

99999,99999 



08048 U 08062 OOOH O 
08080 12 00586 00080 
08O92 46 08056 01100 
081 4 1 1 08 187 0005l 
08116 27 08224 00526 
08128 27 08224 00531 
08140 27 0&224 00534 
08152 49 99999 00000 
08164 16 00826 00000 
08474- 1 6 00 8 30 - Qg O OI 
08188 38 00751 00400 
08200 11 08187 00051 
082.12.-lt9- 99999 00000 



08224 26 08344 08223 
08223 00000 
08236 26 00630 00891- 
0B248 14 0043O 000C7 
O826O 46 08292 01100 
08272- 26 00586 00630 



08284 49 08304 OOOOO 
08292 

08304 16 08339 50760 

08316 16 09651 58339 
08328 49 09600 OOOOO 
08335 00 5 19999 



08340 00005 59999 



o 



© 



279. 



07300 


AM 


MV4+23, 10, 10 




07310 




MV4+28, 10, 10 


08346 11 08339 OOOTO 


Ail 


07320 


SM 


COUNT, 1,10 


08358 11 08344 000T0 


07330 


BP 


MV4 


08370 12 00586 00051 


07340 




BR+6,*+20 


O8382 46 08316 01100 


TFM 


07350 






O8394 16 08218 08414 


B 


PST2 


07360 






08406 49 08164 00000 


DORG 


*-3 


07370 






08414 


SM 


TEMPI ,7, 10 


07380 


BP 


MV1 


08414 12 00630 00007 


07390 


BB 




08426 46 08248 01100 




07400 






08438 42 00000 00000 


DORG 




07410- * 






08440 






07420* PUNCH SUBROUTINE. * 




07430* * 




* * * 




07440 


QS__ . 


5- - - - 




07450PNCH 






08444 00005 


WNCD 


402 


07460 




PNCH 1+6, PNCH-1 


08446 38 00402 00400 


TF 


07470 


SM 


PMCU 1+6, 9*10 


08458 26 08488 08445 


07480PNCH1 






08470 12 08488 0000*9 


V/NCD 


99999 


07490 




PNCH 1+6, 80, 10 


08482 38 99999 00400 


AM 


07500 




PNUM,S,.10 


08494 11 08488 OOO80 


SM. .. 


07510 




PNCH 1 


O85O6 12 OO885 00008 


BP 








08518 46 08482 01100 


07520 


BB 










08530 42 00000 00000 


07530 


OORG 


---9 - . 








08532 


07540 


DS 


4 








08535 00004 


07550WRNUI1 


TF 


OUT, NO 


0756ON0 


QS . 




08536 26 00830 O8535 


.WRNUM-l 








08535 00000 


07570 


CF 


OUT-1 



08548 33 00829 00000 



280. 



07580 
07590 
07600 



WNTY OUT-1 



DORG *-y 



07610* * * * * * * 

07620* SUBROUTINE FOR PREPARING G-ATA- 

07630* PUNCHING. INTERNAL FORMAT IS 

07640* * * * * * * 

O765O DS 10 

07660FLTFIX CF ARG-S 

07670ARG DS .FLTFIX-1 

07680 TF OUTPUT, SEVENS 

07690 CF 0UTPUT-9 

07700 TF 0UTPUT-10.DCMAL 

07710 TFM OUTPUT-19,0,9 

07720 TFM SIGN, 0,10 

07730 BNF JUMP.ARG-2 

07740 TDM SIGN-1,2,11 

07750 CF ARG-2 

07760JUMP CM ARG, 9-9, 1011 

07770 BE V/RALPH 

07780 CM ARG, 0,10 

07790 BMP DEC I ML 

07800 CM ARG, 4, 10 

078 10 BH LARGE 

07820 TFM TRNMT+1 1 ,ARG-9 

07830 TFM *+4 2, OUTPUT- 10 

07840 S *+30,ARG 

O785O S *+l8,ARG 



085 60 38 00829 00100 
08572 42 00000 00000 
08574 

FOR ALPHAWERICAL PRINTING -OR 
SPSII. 

08583 00010 

08584 33 0S574 00000 
08583 00000 

08596 26 09471 09483 
- 08608 33 09442 00000 
08620 26 09461 09493 
OS632 16 09452 OOOOO 
08644 16 0949& OOOSO 
08656 44 08692 O858I 
08668 15 09494 00002 
08680 33 08581 OOOOO 
08692 14 O8583 00099 
08704 46 09028 01200 
087 16 14 O8583 OOOOO 
08728 47 09074 01100 
08740 14 O8583 00004 
08752 46 09154 01100 
08764 16 08823 08574 
08776 16 08818 09461 
O8788 22 08618 O8583 
08800 22 08818 O8583 



07860 TRNMT TD 99999,99999 

07870 AM TRNMT+11,1,10 

07880 AM TRNMT+6,2,10 

07890 CM TRNMT+6, 0UTPUT-1 2 

07900 BNH TRNMT 

07910 TF V/RITE+23JRNMT+1 1 

07920 TFM EXPNT2,5,10 

07930 S EXPNT2,^R6 

07940 TFM *+47, SEVENS 

07950 S *+35,EXPNT2 

07960 S *+23^EXPNT2 

07970 A 0UTPUT-12, 99999 

07980V/RITE TFM *+l8 f OUTPUT-8 

67990" "td 0UTPUT-8,0 

08000 AM WRITE+23,1,10 

08010 AM V/R| TE+18,2, 10 

08020 CM WR I TE+1 8, OUTPUT 

08030 BNH ~WR I TE+12 

08040WRALPH BD SETZRO, OUTPUT-1 8 

08050 B SETSIG ~ 

08060 DORG *-3 

08070SETZR0 TDM OUTPUT, 

080 80 TF b!TfpUT^20,Sl"GN 

08090 BB 

08100 DORG *-9 

O8IIODECIML CM ARG.it, 1011 

08120 BNH LARGE 



08812 25 99999 99999 

08824 11 08823 00001 
08836 11 08818 00052 

08848 14 08&18 59459- 

08860 47 08812 01100 
08872 26 08979 08823 

- - 08884 16 09497 000(35 

08896 22 09497 O8583 
O8908 16 08955 09483 

08920 22 08955 09497 

08932 22 08955 09497 
08944 21 09459 99999 

na&5£~l£ a&a74- 59463— 

O8968 25 09463 00000 
08980 11 08979 00051 

08-99i-U- 08974- 00052- 

09004 14 08974 59471 

09016 47 O8968 01100 

090 28- 44- 09048 0^453- 

09040 49 09360 00000 
09048 

09048 15 09471 00000 

09060 26 09451 09495 
09072 42 00000 00000 

05074 

09074 14 O8583 00054" 
09086 47 09154 01100 



282. 



08130 

08140 

08 150 

08160 

08170 

08180 

08190LARGE 

08200 

08210 

08220 

08230 

08240JUMP2 

08250 

08260 

08270 

08280 

08290 

O83OO 

O83IOV/R 

08320 

08330 

08 340 

O8.35O 

O836O 

O837O 

O838OSETSIG 



TFM 
TFM 
S 
S 

B 

DORG 

TF 

BNF 

TFM 

CF 

CF 

TD 

TD 

CF 

TF 

CF 

TFM 

TFM 

TD 

AM 

AM 

CM 

BNH 

BB 

DORG 



V/RI TE+23.ARG-9 



V/RI TE+18.0UTPUT-8 
V/RI TE+1 8, ARG 
V/RI TE+1 8, ARG 



V/RI TE+12 
*-3 

OUTPUT-17 .SEVENS-7 



JUMP2.ARG 
OUTPUT-20,20, 10 

ARG 



OUTPUT-1 9 
OUTPUT-1 6, ARG 
OUTPUT-1 8 ,ARG-1 



OUTPUT-18 
OUTPUT-1 2,S I GN 
0UTPUT-13 



V7R+11.ARG-9 

V/R+6.0UTPUT-8 

99999,99999 



WR+11,1,10 

V/R+6,2, 10 
V/R+6, OUTPUT 
WR 

*-9 



-09098 1 6 08 979 585 7 4- 

09110 16 08974 59463 

09122 22 08974 O8583 

-09134 2 2 0897 4 O8 5 83 



09146 49-08968- 00000 
09154 

091 54 26 09 454 94 76 
09166 44 09214 O8583 
09178 16 09451 00020 
0919 33 08 5 83 00000 



TFM SETS+11, OUTPUT-1 6 



09202 33 09452 00000 
©9244 25 09455 O8583 
092-24 25-0945^- 08^2- 
09238 33 09453 00000 
09250 26 09459 09495 

- O 92 6 2 33 09 'i 58 00000 
09274 16 09309 58574 
09286 16 09304 59463 

-09298 25- ~9-9999~9-99£9- 
09310 11 09309 00051 

09322 11 09304 00052 
-O9334 44-09304 0>47 1- 
09346 47 09298 01100 
09358 42 00000 00000 
093 6 — 



09360 16 09383 59455 



o 



© 



QS390SETS 

08500 

08410 

Q852Q 

034 30SET 
03440 

Q 35.50 

03460 
08470 
Q358H 



BP SET,0L)TPIJT-J6 
AM SETS+11,2,10 

B SETS 

_OQRG_>;:rJ 

TF *+30,SETS+11 
SM *+l8,2,10 

-.If 99999. SlfilL 

SB 

DORG *-S 
JDAS 14 



O34900UTPUT DS 2 

03500 DAC _i L r g 

Q 85 10SEVENS DC 10,7070707070 

08520DCMAL DC 10,0000000003 

085 30S I GM QS 2 

. 08540EXP MT2 DS 2 

08550 DAC 1,0 

08560 OEND STAR4C 

LOAD SUBROUTINES 



02372 

09384 

09396 

09404 

09404 

09416 

09428 

09440 

09442 

09443 

O947I 

09473 

09483 

09493 

09495 

69497 

09499 

00944 

695OO 
09512 
09520 
09532 
09550 
09552 
09560 
09572 
O9580 
09592 
09600 
0961 2 
03620 
09632 



43 09404 09455 

1 1 09383 000C2 
49 09372 00000 

26 09434 09383 

12 03434 00002 
26 99999 09495 
42 00000 00000 

00014 
00002 
00001 
00010 
00010 
00002 
00002 
00001 



16 10054 
49 09640 
16 10055 
49 09640 
16 10054 
49 09640 
16 10054 
49 09640 
16 10054 
49 09744 
16 10054 
42 09744 
16 10054 
49 09744 



T0512 


T0556 


T1056 


T1296 



T1632 



T2212 



T2244 





END OF PASS I I 



00402 


CONT 


00407 


DATE 


00409 


PR OB 


00414 


NOBS 


00417 


NFORM 


00420 


[NVAR~ 


00423 


NOVAR 


00426 - 


N 


00529 


NDEP 


00432 


*N0TRAN 


00435 


MOCON 


00437 


NCOL 


00440 


NELIM 


0044 1 


CON 1 


00442 


C0N2 


00443 


CON 3 


00444 


COM4 


00445 


C0N5 


00446 


CONo 


00447 


CON 7 


00448 


CON 8 


00449 


CON 9 


00450 


CON 10 


00451 


CON 1 1 


00452 


CON 1 2 


00453 


CON 13 


00454 


CON 14 


00455 


CON 15 


OO456 


CON 16 


00457 


CON 17 


00458 


CON 18 


00481 


OBSER 


00486 


1 ND 


00491 


1 D 


00496 


1 DD 


0050 f 


*FORTWT 


00506 


INDEX 


005 IT 


""CONST - " 


00516 - 


DATA 1 


00521 


DATA 2 


00526 


q 


00531 


SE 


00536 


T 


00541 


SUM1 


00546 


S IGMA 


00551 


R 


00556 


V7T 


OO561 


ADKK 


OO566 


ADRNN 


0057 1 


AD 1 J 


00576 


ADR 1 J 


OO58 1 


S IGN3 


00586 


COUNT 


OO589 


CNTR 




CTR 


00595 


| 


00598 


j 


00 60 1 


K 


006o4 


L 


00607 


p 


00610 


Q 


006 1 4 


MSZ 


00617 


1 VE 


OO62O 


1 VP 


00630 


TEMP 1 


00640 


TEMP 2 


"00650" 


AO 


00665 


"EY 


00670 


RSQR 


00680 


SCR 


00690 


DF 


00700 


F 


00710 


FIN 


00720 


FOUT 


00730 


HIGH 


00740 


VP 


00750 


VE 


OO83O 


OUT 


00841 


FP001 


OO85I 


FHIGH 


00861 


ZERO 


00871 


ZEROS 


00881 


ONE 


00885 


PNUM 


00888 


MCNT 


00891 


NOIN 


00894 


RCNT 


00897 


CNTRI 


00899 


ERR 1 


00944 


*STAR5C 


01024 


MADV 


01060 


MADVO 


01 182 


MADV 1 


01260 


PIV2 


01302 


PIV3 


01386 


PIV4 


01440 


PIV5 


0T58~2 


PIV6 


01625 


ADV 


01675 


ADV1 


01710 


ADV2 


01794 


1 1 


01842 


CR 


01950 


CR 1 


02040 


CR2 


02214 


REG 1 


02238 


REG 2 


02268 


REG 3 


02298 


REG4 


02328 


REG5 


02390 


REG6 


02402 


REG7 


02456 


ILEL 


02500 


IGRL2 


02544 


1 EL 


02568 


TST 


02688 


STE1 


02724 


JGRL 


02780 


JLEL 


02828 


STE2 


02870 


STE3 


02900 
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00450 


02410 




B 


END 




02290 


49 


02370 


00000 


2420 




DORG 


*-3 




02298 








U2~4~30* " 








-■ — ■ •• 











02440* 


PUNCH MEANS. 












02450* 


















2460 




TF 


PNUM.N 




02298 


26 


00885 


00426 


02470 




BT 


PNCH.SUM1 




0731Q 


27 


02436 


0054! 


02480 




TF 


PNUM,N 




















02322 


26 


00885 


00426 


02490 




BT 


PNCH, SIGMA 




02 334 


27 


02436 


00546 


02500 




TF 


PNUM.MSZ 




02 346 


26 


00885 


00614 


02510 




BT 


PNCH.R 








02436 












02358 


27 


00551 


02520END 


RNCD 









36 
















02370 


00000 


00500 


02530 




B. 







"62382 


49 


OOObo" 


66666 


02540 




DORG 


*-3 




02390 








02550CHECK 


BD 


*+20,CON5 














© 



02560 
02570 
02580 
02590 



END 



DORG *-3 

BTM MEANS, 0,10 

B END 



2 600 



DORG *-3 



02610* * * * * * 

02620* PUNCH SUBROUTINE. * 

02630* * * * * * 

02640 DT S 

02650PNCH WNCD 402 

02660 TF PNCH1+6,PNCH-1 

02670 SM PNCH 1+5797T6" "" " 

02680PNCH1 WNCD 99999 

02690 AM PNCHI+6,80, 10 



02700 
02710 
02720 
02730 



SM 
BP 
BB 



PNUM,8, 10 
PNCH 1 



DORG *-9 



02740* * * * * * 
02750* SUBROUTINE TO FLOAT NOBS. 
O276O* * * * * * 
02720, DS 5 _ 

02780CONV TFM EXP3.5.10 

02790 TFM TESTD+1 1 , CONV-5 

2800 _ . TFM TESTD+1 1,C0NV-5 

02810 TFM MVWRD+6,OBSER-5 

02820 TF OSSER, ZEROS 

.5.2810 TE S TD _ ID . _ SETM. 99999 

02840 AM TESTD+1 1,1, 10 

02850 SM EXP3.1.10 

02860 SM MVWRD+6.1.10 



02390 43 02410 00445 
02402 49 02370 00000 
02410 

02410 17 02698 00000 
02422 49 02370 00000 
02430 

02434 00005 
02436 38 00402 00400 
02448 26 02478 02435 
02460 12 02478 00009 
02472 38 99999 00400 
02484 1 1 02478 OOO80 
02496 12 OO885 00008 
02508 46 02472 01100 
02520 42 00000 00000 

02522 

* 
* 
* 

02526 00005 
02528 16 02695 00005 
02540 16 02599 02523 
02552 16 02599 02523 
02564 16 02674 00476 
02576 26 00481 00871 
02588 43 02644 99999 
02600 11 02599 00001 
02612 12 02695 00001 



02870 
02880 
02890S ETM 
02900 

02910MVWRD TF 
02920 
02930 
02940 
02950EXP3 



B TESTD 
DORG *-3 

-IF. *±J1 JESTD+l£ 
SF 99999 

99999, C0NV-1 
TF OBSER , EXP3 



DORG *-9 
DS 2 



02960* ***** 

02970* SUBROUTINE TO FORM MEANS, 

02980* * * * * * 

2 9 90 DS 2 

03000MEANS TF MCNT, N 

03010 TF DIVS+23.SUM1 

03020DIVS FD 99999, OBSER 

DIVS+23,10,10 

MCNT, 1 ,10 

Dl VS 



03030 
3040 
03050 
03060 
03070 
03080 
03090 



AM 
SM 



BP 
BB 

_J)ORG *-9_ 
DAC 1,0 
DEND LOAD 
LOAD SUBROUTINES 



02624 12 O2674 00001 
02636 49 02588 00000 
02644 



"02 544" 2 6~0 2662 02599 
02656 32 99999 00000 
02668 26 99999 02527 
02680 26 00481 02695 
02692 42 00000 00000 
02694 

02695 00002 



02697 

02698 

02710 

02722 
02734 
02741 
02746 

02752 

02764 

02776 

02788 

02790 

02791 

00932 

U'Z79Z~ 
02804 
02812 
02824 



00002 

26 00888 

26 02745 

16 02843 
49 6281 2~ 
00005 
00005 

11 02745 

12 00858 
46 02722 
42 00000 

0000 1 



00426 
00541 
52745 



00000 
59999 
00481 

000T0 

OOOUl 
01100 
00000 



IB U3246"ff3748 
49 02832 
16 03246 64248 
49 02832 



00010* PROGRAM 80-B, TYPE FINAL REPORT, MAY 7, 1963. 
00020* 



oa4ar- 

00420 
00435 
00443 
00448 
00453 
00458 



CJ1NJ__ 

INVAR 

NOCON 

C0N3 

C0N8 

C0N1 3 

C0N18 



00.407 

00423 
00437 
00444 
00449 
00454 
0048 1 



DAI£_ 



NOVAR 

NCOL 

C0N4 

C0N9 

C0N14 

OBSER 



00501 
00526 
00551 
00576 
00595 
00610 



00640 
00690 
00740 
00861 
00891 
00980 
0T272 
01500 
01650 
01926 
02278 
2523 
02698" 



♦FORMAT 
B 
R 

AORIJ 
I 



TEMP2 
DF 
VP 

ZERO 
NO I N 
LOAD 2 
*ENDMOV~ 
MVI ND 
STEPL 
CMPKN 
PM 

CONV 



00506 
00531 
00556 
00581 
00598 
00614 



OO65O 
00700 
00750 
00871 
00894 
01066 



I NOEX 

SE 

WT 

SIGN3 
J 

MSZ 



01292 
01512 
01718 
01970 
02370 
0258 8 



AO 
F 

VE 

ZEROS 
RCNT 
LOADjL 



NOP 
CPR4 
RDNUM 
*ROCARD_ 
END 
TESTD 



MEANS 02722 DIVS 



00409 



00426 
0Q440 
00445 
00450 
00455 
00486 
00511 
00536 
00561 
00586 
00601 
00617 



00660 
00710 
00830 
0Q881 
00897 
01 102 



01360 
01536 
01750 
02026 
02390 
02644 



PROB 
N 

NELiM 
C0N5 
C0N10 
* CON 15 

LND 

CONST 

T 

ADKK 

COUNT 

K 

iVE 

EY 

FIN 

OUT 

ONE 

CNTR1 
* COM PAR 
" SKI PI 

COLX 

EQCOL 
*TSTCOL 

CHECK 

SETM 



Q0414 
00429 
00441 
00446 
00451 
00456 
Q049L 
00516 
00541 
00566 
00589 
00604 
Qfl620_ 
00670 
00720 
00841 
00885 
00899 
01126 
6I38O 
01560 
01770 
02058 
02436 
02668 



NOBS 

NDEP 

C0N1 

C0N6 

C0N11 

C0N16 

ID 

DATA 1 
SUM1 
ADRNN 
CNTR 

L 

J VP 

RSOR 

FOUT 

FP001 

PNUM 

ERROR 

MOV 

MOVE 2 

MVV 

EQROW 

SEN 

PNCH 

MVWRD 



00417 
00432 
00442 
00447 
00452 
00457 
QM36 
00521 
00546 
00571 
00592 
00607 
00 610 
00680 
00730 
00851 
00888 
00932 
01168 
01464 
01602 
01866 
02082 
02472 
02695 



NFORM 
*NOTRAN 
C0N2 
C0N7 
C0N12 
C0N17 
I DO 
DATA 2 
S I GMA 
ADIJ 
CTR 
P 

TEMPI 

SQR 

HIGH 

FHIGH 

MCNT 

LOAD 

M0V1 

ROWX 

STEPK 

NOPER 

SETN 

PNCH 1 

EXP3 



00030 


DORG 


402 










00402 




00040CONT 


DSS 


80 












00402 


00080 


00050 1 


DS 


2.C0NT+1 












0040 3 


00002 


000 60 J 


DS 


2 ,C0NT+3 










00405 


00002 


000 70 Y 


DS 


2.C0NT+5 












00407 


00002 


00080 PROB 


DS 


2 .C0NT+7 










00409 


00002 


000 90 N0BS 


DS 


5.C0NT+12 








00414 


00005 


00 100N 


DS 


3.C0NT+24 










00426 


0000 3 


00 110 INDEX 


DSS 


80 












00482 


00080 


00120HED 


DSS 


80 












00562 


OOO8O 


00130STEPN0 


DS 


3.HED+2 








00564 


00003 


00 140L 


DS 


3.HED+5 












00567 


0000 3 


00150N0I N 


DS 


3.HED+8 












00570 


00003 


00160NN 


DS 


3.HED+1 1 










00573 


00003 


00170AO 


DS 


10.HED+29 












00591 


00010 


00180RSQR 


DS 


10.HED+39 










00601 


00010 


00190EY 


DS 


10.HED+49 








00611 


00010 


00200F 


DS 


10,HED+59 










00621 


00010 


0021-0S0R 


DS 


10.HED+69 










00631 


000 10 


O022OC0UNT 


DS 


5 












00646 


00005 


002300UT 


DS 


5 












00651 


00005 


00240 


DC 


1,^ 










00652 


00001 


0025OTABN0 


DS 


2 












00654 


00002 


00 2 60K 


DS 


3 












00 657 


0000 3 


00270ALPHA 


DAS 


80 












00659 


00080 



f 



299. 



00280 


DAC 


1 vD 












00019 0000 1 

UUbbZ 0000 1 




nn? cmrnw? 


DS 


1 A 1 PHA j- 1 




00 300C0N4 


u 


1 Al PHAxC 
1 »MLrnA+p 


00664 00001 




no i inrnw£ 


nc 


1 ,ALrHA+/ 


00666 00001 




O0 320C0N8 


nc 


1 ,ALrrlA+y 


00668 00001 




00330CON10 


DS 


1 A 1 DU A i 1 1 

1 ,ALPHA+ I | 












00 670 00001 




00 340 1 D 


DSB 


2 ,80 








00821 00002 


00080 


00 350.B 


DSB 


10, 80 






UU 3WJbt 






00989 00010 00080 


DSB 


10,80 












01789 00010 


00080 


nn 57n t 


UoD. 


in 

. lU j ou 




OO38OI NAREA 






02589 00010 


00080 


USD 


in R 






00 39GHDNG0 






03389 00010 WOOB 


DAC 


9n f)F P VAR <- (ffi 






0Q4Q0HDNG 1 






0*461 00020 




DAC 


1R <?Tn FRR V Y _ rSl 






004 10HDNG2 






03501 00018 




DAC 


18 R SOUARFD - (Si 










35 3 7 000 1 8 




Q042QHDNG3 


DAC 


1ft SUM ^OR RE^ - ® 










03573 00018 




OOU VlHDNRli 

w JUJIIU IIU^T 


DAC 


i. 1 t I NU VMT\ UjCU = t<Z) 




nnLiiDHnwr;'; 






0*609 00021 




nAr 


18, CONSTANT TERM = ® 




nnii*;nt-inMf: A 






03651 00018 




UAL 


13 , VAK LUtr rfo) 










0*687 00015 




UAL 


29, STD ERR T 


RATI 0® 










03717 00029 
3775 0000 6 




nnii 7n pd r i 


UAL 


6, PR 0B © 




OO48OVR8L 


DAC 


6, VAR ® 


0*787 00006 






DAC 


7, 0BSER«> 










18, SUMS OF VARIABLES® 


3799 00007 




0Q5OQSUMS 


DAC 


03813 00018 




0051QSUMSQ 


DAC 


35, SUMS OF SQUARES AND CROSS-PRODUCTS® 










3849 00035 




00520AVRG 


DAC 


9, AVERAGES® 


03919 00009 




00530STDEVS 


DAC 


20, STANDARD DEVIATIONS® 






0054OSMPC0R 






3937 00020 
3977 00019 




DAC 


19, CORRELATION MATRIX® 




00^0 STEP 


DAC 


6, STEP ® 


04015 00006 





a 



a 



00560 MAT 1 


DAC 


3 1 TDAMCCnDMCn ffiDD Ft A Tl flKI 
3 I $ 1 KAN or UKrlL I) LUKKL LA 1 1 UN 


00570MAT2 


DAC 


j\) , K C I N VLK 1 L U L Uf\K L LA 1 I UN 


00580* 

00 590* SUBROUTI 
00600* 

00610 DS 


NE TO READ B, SE AND T. 
5 


00620RD 


TF 


RD1+6.RD-1 


00 630 


TF 


C1+11.RD-1 


00640 


A 


C1+10,NOIN 


O0650RD1 


RNCD 


99999 


00660 


AM 


RDI+6,70, 10 


OO67OC 1 


CM 


RD1+6, 99999 


00680 


BN 


RD1 


00690 


BB 




00 700 


D0RG 


*-3 


00710* 

00720* SUBROUTINE TO READ AND PRINT FL0ATI 
00730* 

00740 DS 4 


00750 PRINT 


RNCD 


J NAREA-9 


00760 NMBR 


DS 


.PRINT-l 


00770 


TFM 


BRTRMT+28,1 NAREA 


OO78OBRTRMT BTFS 


FLTF IX, 99999 


00790 


WATY 


OUTPUT-20 


00800 


TBTY 




00810 


AM , 


BRTRMT+28, 10, 10 


0082Q 


SM 


NMBR, 1, 10 


OO83O 


BNP 


RTRN2A 



04027 00031 
\TRIX^ 
04089 00030 



04152 00005 
04154 26 04196 
04166 26 04225 
04178 21 04224 
04190 36 99999 
04202 11 04196 
04214 14 04196 
04226 47 04190 
042 38 42 00000 
04246 



04153 
04153 
00570 
00500 
00070 
99999 
01300 
00000 



04249 00004 
042 50 36 3 380 00 500 
04249 00000 
04262 16 04302 



04274 16 07865 
04286 49 07834 
04293 00005 
04298 00005 

04 30 4 39 5 7 8 3 

04316 34 00000 

04328 11 04302 

04 340 12 04249 

04352 47 04396 



53389 

04297 
00000 
04916 
99999 

00100 

00108 

000T0 

00001 
1 100 



300. 



301. 



00 840 COP CM BRTRMT+2 8, I NAREA.+70 

00850 BNH BRTRMT 

00 860 B PR i NT 

00870 DORG *-3 

C0880RTRN2A RCTY 

CO 8 90 RCTY 

00900RTRN? B 99999 

00910 ... DORG *-3 



Oil 364 
04376 
04388 
04396 
04396 
04408 
04420 
04428 



00920* 

D093O* SUBROUTINE TO PRINT FIXED POINT NUMBERS. 
00940* 

00950 DS 4 

04431 

00960WRNUM TF OUT, NO 

04432 

00970N0 DS , WR NUM- 1 

04431 

00980 CF OUT-1 

04444 

00990 WNTY OUT-1 

04456 

01000 BB 

04468 

01010 DORG *-9 

04470 

1020* 

01030* SUBROUTINE TO PRINT TRIANGULAR MATRIX. 
01040* 

RNCD INAREA-9 



14 04 302 03459 
47 04274 01100 
49 04250 00000 

34 00000 00102 
34 00000 00102 
49 99999 00000 



00004 

26 00651 04431 
00000 

33 00650 00000 

38 00650 00100 

42 00000 00000 



01050PRTRI 
01060 
01070 
01080 
01090BTAB 



TFM BRTRMT+28, I NAREA 

TF K,N 

TFM TABNO, 1,10 

BT TABSUB , TABNO 

01100TRMTK TF NMBR , K 

01110 TFM RTRN2+6,*+20 

01120 B COP 

01130 DORG *-3 



04470 
04482 
04494 
04506 
04518 
045 TO 
04542 
04554 
04562 



36 03380 00500 
16 04302 G3389 

26 00657 00426 
16 00 65 4 0000" 1 

27 04644 00654 
26 04249 00657 
16 04426 54562 
49 04364 00000 



01 140 


AM 


TABNO, 1, 10 


01 150 


CM 


TABNO, 5, 10 


01 160 


BNP 


*+24 


01170 


TFM 


TABNO, 1,10 


01180 


SM 


K, 1 , 10 


01 190 


BNE 


BTAB 


01200RTRN4 


B 


99999 


01210 


DORG 


*-3 


.01220 


DS 


2 


U 1230 TABSUB 


TBTY 




01240NUMB 


DS 


,TABSUB-1 


P1250 


SM 


NUMB, 1 , 10 


.01260 


BP 


TABSUB 


.01270 


BB 




.01280 


DORG 


*_ 9 


01290* 

01300* SUBROUTINE TO PRINT 
01310* 

1 320HEADNG BT WRNUM,I 


01330 


SPTY 




01340 


BT 


WRNUM,J 


01350 


SPTY 




01 36O 


BT 


WRNUM, Y 


01370 


RCTY 




01380 


WATY 


PRBL 


01390 


BT 


WRNUM, PROB 


01400 


TBTY 




01410 


BT 


WRNUM, N 


01420 


WATY 


VRBL 



04562 11 00654 OOOOl 
04574 14 00654 00005 
04586 47 04610 01 100 
04598 16 00 654 OOOOl 
04610 12 00657 OOOOl 
04622 47 04518 01200 
04634 49 99999 00000 
04642 

04643 00002 

04644 34 00000 00 10 8 
04643 00000 

04656 12 04643 OOOOl 
04668 46 04644 01100 
04680 42 00000 00000 
04682 

04682 27 £44 32 0040 3 
04694 34 00000 00101 
04706 27 04432 00405 
04718 34 00000 0010 1 
04730 27 04432 00407 
04742 34 00000 00 102 
04754 39 03775 00100 
04766 27 04432 00409 
04778 34 00000 00108 
047 90 2 7 044 32 00 42 6 
04802 39 3787 00100 



1430 


TBTY 












01440 












04814 34 00000 00108 


TF 


OUT NOR^ 






















04826 26 00651 00414 


1450 


cp 


OUT— 4 




















04838 33 00647 00000 
04850 38 no6k7 nninn 


1460 


V/NTY 


D! IT— L 








1470. 


WATY 


OBSR 






















04862 39 3799 00100 
04874 34 00000 00102 


C1480 


RCTY 










1490 


RCTY 










04886 34 00000 00102 


01500RTRN3 


B 


93999 








04898 49 99999 00000 


01510 


DORG 


*-3 








04906 


01520* * 
n i c an* ci idd 


* 

A! IT 1 K 


* * 

r c nr> no r n a 




* 


* 


* * * * * 



n\l£* lZ R rSiVr HE f£Sr^r A ? ,NG DATA F0R ALPHAMERiCAL PRINTING OR 
01540* PUNCHING. INTERNAL FORMAT IS SPSII. 









■k 


* * 


* 


* 


01560 


OS 


10 




















04915 


00010 




01570FLTFIX 


CF 


ARG-9 




04916 


33 


04906 


00000 


01 580 ARG 


DS 


.FLTFIX-1 




















04915 


00000 




01590 


TF 


OUTPUT, SEVENS 


















04928 


26 


0580 3 


05815 


01600 


CF 


OUTPUT-9 




04940 


33 


05794 


00000 


01610 


TF 


0UTPUT-10,DCMAL 




04952 


26 


05793 


05825 


01620 


TFM 


OUTPUT-19,0,9 


















04964 


16 


05784 


00500 


01630 


TFM 


SIGN, 0, 10 


















04976 


16 


05827 


oooOo 


01640 


BNF 


JUMP.ARG-2 




04988 


44 


05024 


04913 


01650 


TDM 


SIGN-1,2,11 




05000 


15 


05826 


00002 


01660 


CF 


ARG-2 




05012 


13 


04913 


00000 


01670JUMP 


CM 


ARG.99, 101 1 












01680 








05024 


14 


04915 


00099 


BE 


WRALPH 




050 36 


46 


05360 


01200 


01690 


CM 


ARG ,0 , 10 


















05048 


14 


04915 


oooOo 


01700 


BNP 


DEC 1 ML 




05060 


47 


05406 


01 100 


01710 


CM 


ARG, 4, 10 




05072 


14 


04915 


00004 


01720 


BH 


LARGE 




05084 


46 


05486 


01 100 



01730 


TFM 


TRNMT+1 1 , ARG-9 


01740 


TFM 


*+42,0UTPUT-10 


01750 


S 


*+30,ARG 


01760 


S 


*+l8,ARG 


01770TRNMT 


TD 


99999,99999 


01780 


AM 


TRNMT+1 1,1, 10 


01790 


AM 


TRNMT+6,2, 10 


01800 


CM 


TRNMT+6, OUTPUT-12 


01810 


BNH 


TRNMT 


01820 


TF 


WRI TE+23, TRNMT+1 1 


01830 


TFM 


EXPNT2 , 5 , 10 


01840 


S 


EXPNT2 ,ARG 


01850 


TFM 


*+47, SEVENS 


01860 


S 


*+35,EXPNT2 


01870 


S 


*+23,EXPNT2 


01880 


A 


OUTPUT-12, 99999 


Q1890WRI TE 


TFM 


*+l8,0UTPUT-8 


01900 


TD 


OUTPUT-8,0 


01910 


AM 


WRI TE+2 3, 1, 10 


01920 


AM 


V/RI TE+18,2, 10 


019*0 


CM 


WRI TE+ 18, OUTPUT 


01940 


BNH 


WRI TE+12 


01950WRALPH 


BD 


SETZR0,0UTPUT-18 


01960 


B 


SETSIG 



01970 DORG *-3 

01980SETZR0 TDM OUTPUT, 
01990 TF 0UTPUT-20 , S I GN 



05096 16 05155 O"4906 
05108 16 05150 05793 
05120 22 05150 04915 
05132 22 05150 04915 
05144 25 99999 99999 
05156 11 05155 00001 
05168 11 05150 00002 
05 1 80 14 5 1 50 05 7 91 
05192 47 05144 01100 
05204 26 0531 1 05155 
05216 16 05829 00005 
05228 22 05829 04915 
05240 16 05287 05815 
05252 22 05287 05829 
05264 22 05287 05829 
05276 21 05791 99999 
05288 16 05306 05795 
05^00 25 05795 00000 
05312 11 05311 00001 
05 324 11 5 30 6 000 2 
05336 14 05306 058O3 
05*48 47 05*00 01100 
05360 43 05380 05785 
05 372 49 05692 00000 
05380 

05 380 15 5 80 3 00000 
05392 26 05783 05827 



305. 



02000 


BB 


















05404 


42 


00000 


00000 


^ L \J I U 


QQRQ 


J 


05406 










CM 


AR(i 4 1011 








00054" 






05406 


14 


04915 


uzu ^u 


D Pin 


LARGE 






05486 










054 1 8 


47 


01 100 




TFM 


WR 1 TF+? 3 ARf! — Q 








54906 




05430 


16 


0531 1 


< 7n.cn 
xu^u 


TFM 


WRITEj-IR OUTPUT-8 








55795 




05442 


16 


05 306 


n 7n An 


5 


wo 1 TF+ 1R ARG 

r(!\l I LT | J|nl\V3 














05454 


22 


05306 


04915 


02070 


5 


WR 1 TE+ 18, ARG 












05466 


22 


5 30 6 


04915 


02080 


B 


WRI TE+12 
















05478 


49 


05300 


00000 




DORG 


j 














05486 








n inn i adt F 


1 r 


ntlTPUT— 17 SEVENS-7 






05786 


5 808 




05486 


26 


ni 1 in 


P MP 


U IMP? ARG 






05546 








44 


04915 


02 120 


Tr M 


ni (TP i iT_on on in 
uu 1 r u I — zu , ZU f lu 








00020 






nc C m 
U55 IU 


1 A 

t D 




02 1 30 


















05522 


J j 


04915 


00000 


r, 7 1 


TF 


HI iTPI IT— 1 Q 


















00000 


U<i 1 3U JUrir Z 


Tn 
i u 


nitTPIIT— 1A ARfi 






up / u/ 








nc t;kA 




04915 


nil Cs\ 
UZ 1 t>U 




flHTPIIT— 1R ARH— 1 






05785 












04914 


n 7 1 7n 


CF 


OUTPUT— 1 8 






05785 








05570 


3^ 


00000 


02180 


TF 


OUTPUT-12 .SIGN 
















05582 


26 


05791 


05827 


02190 


CF 


OUTPUT-13 














05594 


33 


05790 


00000 


02200 


TFM 


WR+11,ARG-9 








54906 




5 606 


16 


05641 


02210 


TFM 


WR+6, 0UTPUT-8 














05*18 


16 


05636 


55795 


f:2220WR 


TD 


99999,99999 














05630 


25 


99999 


99999 


022 30 


AM 


WR+1 1,1,10 








00051 






05642 


11 


05641 


0224C 


AM 


WR+6, 2, 10 








00052 




05654 


11 


05616 


02250 


CM 


WR+6, OUTPUT 








55803 




05666 


14 


05636 



C2260 


BNH 


WR 


05678 


47 05630 


01 100 


C2270 


BB 




05690 


42 00000 


00000 


02280 


DORG 


*-9 


05692 






02290SETSIG 


TFM 


SETS+11,0UTPUT~16 












05692 


16 05715 


55787 


C2300SETS 


BD 


SET.0UTPUT-16 


05704 


43 057 36 


05787 


02310 


AM 


SETS+11,2, 10 


05716 


11 05715 


00052 


02320 


B 


SETS 


05728 


49 05704 


00000 


02330 


DORG 


*-3 


05736 






02340SET 


TF 


*+30,SETS+l 1 


05736 


26 05766 


05715 


02 350 


SM 


*+l8,2, 10 


05748 


12 05766 


00062 


02360 


TF 


99999.SIGN 


05760 


26 99999 


05827 


Q237Q 


BB 




05772 


42 00000 


OOOCO 


02380 


DORG 


*-9 


05774 






02 390 


DAS 


14 


05775 


00014 




024000UTPUT 


DS 


2 


05803 


00,002 




02410 


DAC 




05805 


00001 




02420SEVENS 


DC 


10,7070707070 


05815 


000 10 




02430 DCMAL 


DC 


10,000000000 3 


05825 


00010 




02440SIGN 


DS 


2 


05827 


00002 




02450EXPNT2 


DS 


2 












05829 


00002 




02460STARTB 


RACD 


ALPHA 


05830 


37 00659 


00500 


-■0 24-70 


RCTY 














05842 


34 00000 


00102 


02480 


WATY 


ALPHA 


05854 


39 00659 


00100 


' 02490 


BNR 


*+24, ALPHA +158 










05866 


45 05890 


00817 


02500 


B 


STARTB 


05878 


49 05830 


00000 


02510 


RCTY 




05890 


34 00000 


00102 


0252C 


RCTY 




05 902 


34 00000 


00102 




o 

307. 



02530 


RNCD 


C0N2-1 




02540TEST2 


BD 


RDSUMS , C0N2 


05914 36 00661 00500 


02550TEST4 


BD 


RDCORS , CQN4 


05926 43 05994 00662 


0256OTEST6 


BD 


RDMAT J ,C0N6 


05938 43 06 162 00664 


02570TEST8 


BO 


RDMAT2 , C0N8 


U5?3U UOHZZ UUOOO 


02 580 TEST 10 


BD 


RDSTEP.C0N10 


nCQAo h.1 nAC Jli nn££S 


02590 


B 


END 


05974 43 0665R nnA7n 


02600 


DORG 


*-3 


05986 ii.Q r>7finft nnnnn 


Q2610RDSUMS 


RNCD 


1-1 


\j j ? j ' 


02620 


TFM 


RTRN3+6,*+20 


0599ii ?A nnii.no nncnn 


02630 


B 


HEADNG 


06006 16 Olj-QOk fifin?A 

u v v IO U*T^/UH UQUtu 


02640 


DORG 


*- 3 




026«i0 


WATY 


SUMS 


06026 


02660 


RCTY 




06026 39 03813 onion 


02670 


RCTY 




06038 34 00000 00102 


02680 


TF 


NMBR.N 


06050 34 00000 00 in? 

w W ✓w UUUUU U U 1 W c 


02690 


TFM 


RTRN2+6,*+20 


06062 2 6 04249 00426 


02700 


B 


PRINT 


060 74 16 04426 56094 


02710 


DORG 


*-3 


06086 49 04250 00000 


02720 


WATY 


SUMSQ 


06094 


02730 


RCTY 




06094 39 3849 00100 


027^0 


RCTY 




06106 34 00000 00102 


02750 


RNCD 


1-1 


06118 34 00000 00102 


02760 


TFM 


RTRN4+6, TEST4 


06 1 30 3 6 40 2 500 


02770 


B 


PRTRI 


06 1 42 16 4 640 0"5938 


02780 


DORG 


*-3 


06154 49 04470 00000 


02790RDC0RS 


RNCD 


1-1 


06162 

06162 36 00402 00500 



308 



02800 




nwcoi r n wo 
U V LK 1 , UUN/ 
















06174 


43 


06206 


00662 


uzo ru 


TFM 
1 r n 


D TD M 5 i£. +1 on 












06186 


16 


04904 


_ 

06206 


UZoZU 


B 


uc A rtKir 
HtAUNU 
















061 98 


i. n 
49 


04682 


00000 


- 

02 o30 


DORG 




06206 








n Qii nniifD 1 
UiCOtUUVtK l 


U/A TV 
WA 1 T 


AVRG 
















06206 


39 


03919 


00 100 


Or 

. 02850 


D r* t v 
















062 18 


34 


00000 


00 102 


u/oou 


D r T V 










. 02870 






062 30 


34 


00000 


00 102 


Tr 

! r 


NMbK , N 














06242 


26 


04249 


00426 


_ UZOOU 


TFM 

I r n 


K 1KN/+0 » ^+/U 


















lb 


04426 


U02/H 


n Ron 


D 


DD 1 KIT 
















0d2od 


49 


04250 


00000 


n tv>n 

_ u/yuu 


U UKu 


•k— 1 


06274 








n q in 

- uz y iu 




1 1 
l 1 
















06274 


36 


00402 


00500 


n n n 
uzyzu 


WA TV 

WA 1 I 


















0b2o6 


39 


3937 


00 100 


02930 


d r t v 


















06298 


34 


00000 


00 1,02 


- uzymj 


D C T V 
















06310 


34 


00000 


00 102 


- 02950 


TF 


NMBR , N 
















6322 


26 


04249 


00426 


- 02960 


TFM 


RTRN2+6, *+20 














06334 


16 


04426 


06354 


- 02970 


B 


PR 1 NT 
















06346 


49 


04250 


00000 


02980 


DORG 


*-3 


06354 








02990 


RNCD 


1 -1 
















06354 


36 


00402 


00500 


n 5AAA 


WA T Y 


cMPf* nt? 
















06366 


39 


03977 


00100 


- 03010 


RCTY 


















06378 


34 


00000 


00 102 


3020 


RCTY 


















06390 


34 


00000 


00102 


03030 


TFM 


RTRN4+6.TEST6 












06402 


16 


04640 


05950 


03040 


B 


PRTRI 
















06414 


49 


04470 


00000 


3050 


DORG 


*-3 


06422 








3060RDMAT1 


RNCD 


1-1 
















06422 


36 


00402 


00500 



0307b 


BD 


0VER2.CON2 
















06434 


43 


06478 


00662 


03080' 


BO 


0VER2.C0N4 














06446 


43 


06478 


00664 


03090 


TFM 


RTRN3+6,*+20 














06458 


16 


04904 


5647 8 


03100 


B 


HEADNG 














' " 06470 


49 


04682 


66666 


03110 


DORG 


*-3 
















06478 








031200VER2 


WATY 


MAT 1 
















06478 


39 


04027 


00100 


03130 


RCTY 
















- - - --. 


06490 


34 


00000 


06102 


03140 


RCTY 


















06502 


34 


00000 


00102 


03150 


TFM 


RTRN4+6, TEST8 












06514 


16 


04640 


55962 


03160 


B 


PR TFM 


66526 












49 


04470 


06606 


03170 


DORG 


*-3 
















06534 








03180RDMAT2 RNCD 


1-1 
















06534 


36 


00402 


00500 


.0312Q 


_BD 


0VER3.C0N2 














06346 


43 


0"6602 


60662" 


03200 


BD 


0VER3.C0N4 












O6558 


43 


06602 


00664 


03210 


BD 


0VER3.C0N6 












06570 


^3 


06602 


00666 


03220 


TFM 


RTRN3+6.*+20 








56602 








06582 


T6 


64904 


03230 


B 


HEADNG 














06594 


49 


64682 


00000 


03240 


DORG 


*-3 














06602 








93250 OVER 3 


WATY 


MAT 2 


06602 


39 


04089" 


00106 


03260 


RCTY 
















06614 


34 


00000 


00102 


03270 


RCTY 
















06626 


34 


00000 


00102 


03280 


TFM 


?JMft?^TI?lJ9_ 
















O6638 


1& 


64640 


55974 


03290 


B 


PRTRI 














06650 


49 


04470 


00000 


03300 


DORG 


*-3 


06658 



















)9. 



310. 



03310RDSTEP BNLC *+12 

03320 RCTY~ 

03330 RNCD STEPNO-2 

03340 RNCD INDEX 

03350 BTM RD.B-9 

03360 BTM RD.SE-9 

03370 BTM RD,T-9 



_fl£65a-4j 



06670 34 00000 00102 
06682 36 O6562 00500 
066 94 36 Q 048 2 QQ50Q 



06706 17 04154 50980 
06718 17 04154 51780 
067 30 17 04154 0258 O 



03380* 

03390* PRINT STEP RESULTS. 
03400* 

03410 WATY STEP 



34 2Q 



TF OUT f STEPNO 



06742 39 64615 00100 



03430 

03440 

P345Q. 

03460 

03470 

03480 



CF OUT-2 
WNTY QUT-2 
RCTY 



RCTY 

WATY HDNGO 
BT WRNUM t L 



03490 RCTY 

O35OO WATY HDNG1 

O35IO BT FS FLTF I X , EY 

03520 WATY OUTPUT-20 

63536 RCTY 

03540 WATY HDNG2 

03550 BTFS FLTF I X f RSQR 



26 00651 00564 
33 00649 00000 
"66778" 38 T 00649 00100 



06754 
06766 



06790 
06802 
06814 



34 00000 00102 
34 00000 00102 
39 03461 00100 



"06826" 

06838 

06850 

66862 
06874 
06881 
06886 



27 04432 00567 
34 00000 00102 
39 03501 00100 



16 07865 66885 
49 07834 00000 

00005 54916 
OOOO5 50611 



06892 39 05783 00100 
06904 
06916 



34 00000 00102 
39 03537 00100 



06928 16 07865 56951 



06940 
06947 
06952 



49 07834 00000 
00005 64916 
00005 50601 



o 



03560 


WATY 


OUTPUT- 


■20 
















06958 


39 05783 


00100 


03570 


RCTY 




















06970 


34 00000 


00102 


03580 


WATY 


HDNG3 


















06982 


39 03573 


00100 


03590 


BTFS 


FLTFIX.SOR 
















06994 


16 07865 


07017 










07006 49 07834 


00000 










070 1 3 


00005 


54916 










07b 1 8 


00005 


00631 


03600 


WATY 


OUTPUT- 


-20 
















07024 


39 05783 


00100 


03610 


RCTY 




















07036 


34 00000 


00102 


03620 


" WATY 


HDNG4 


















07048 


3 9 3 609 


00100 


03630 


TF 


OUT, NO 


N 
















070 60 


26 00651 


00570 


03640 


CF 


OUT-T 


















07072 


33 00650 


00000 


V^TTy OUT^T 


















07084 


38 00650 


00100 


03660 


RCTY 




















07096 


34 00000 


00102 


03670 


RCTY 




















07108 


34 00000 


00102 


03680 


WATY" HDNG5 


















071 20 


39 03651 


00100 


05690 


BTFS 


FLTFIX 


AO 
















07 132 


16 07865 


07 155 










07144 49 07834 


00000 










07151 


00005 


04916 










07156 00005 


50591 


03700 


WATY 


OUTPUT- 


-20 
















07 162 


39 05783 


00100 


03710 


RCTY 




















07174 


34 00000 


00102 


03720 


RCTY 




















07186 


34 00000 


00102 


03730 


WATY 


HDNG6 


















07198 


39 03687 00100 


03740 


WATY 


HDNG7 


















07210 


39 03717 


00100 


0375P 


RCTY 


















07222 


34 00000 00102 



03760- 
03770* 
03780* 
03790 



SET ID OF INDEPENDENT VARIABLES, 
TF COUNT, NN 



0^7 



07234 26 00646 00573 



03800 


TFM 


1.1.10 








03810 






07246 


16 noun a 

16 07?93 


oooo 1 


TFM 


1 D1+1 1 , | NDEX 


07258 


00482 


03820 


TFM 


ID2+6, 1 D 








O383OI D1 






07270 


1 6 07 364 


0082 1 


BD 


"+20,99999 








03840 






O7282 


43 O7302 




B 


1 DMOD 














07294 


49 07382 


00000 


O385O 


DORG 


*_ 3 


07302 




03860 


TF 


"+23, ipj+l? 








03870 






O73O2 


26 07325 




CNR 


*+20, 99999 








O388O 






07 314 




QQQQQ 


B 


1 DMOD 


07 396 






O389O 


DORG 


J 


U / JJH 







03900 


C 


1 ,L 


07 3 3U 




OO567 




BE 


1 DMOD 


r>7 all A 


46 07382 


n 1 inn 
U 1 ZUU 


03920 ID2 


TP 


QQQQQ 1 


- a 

O735o 


— 
26 99999 


— 

00403 


n loan 


M 

t-:, i 


1 u/+o, L , lU 


07370 


.. 

11 07 364 


00002 


03940 IDMOD 


AM 


1 n 1 + 1 1 1 in 


U / 5oZ 


11 u/2y3 


- 

OOOO 1 


03950 


AM 


1,1, 10 








03960 






u / jyt 


1 1 UUW i 
10 nn&L.£ 


0000 1 


SM 


COUNT 1 10 


U/HUD 




03970 


8P 


1 D 1 . 














07418 




n 1 inn 


03980* 
03990* PR 










NT B, 


SE , "AND T. 








04000* 








04010 


' TFM 


W1 + 11JD 








04020 






07430 


16 07501 


50821 


TFM 


W2+28.B 








040 30 




W3+28.SE 


07442 


16 07566 


50989 


TFM 






04040 






07454 


16 07620 


01 789 


TFM 


W4+28.T 




04050 






07466 


16 07674 


52589 


TF 


COUNT, NOI N 






04060W1 






07478 


26 00646 


00£7P 


TF 


OUT ,99999 ~" 










07490 


26 00651 


99999 
00000 


04070 


CF 


0UT-1 


07502 


33 OO65O 



040 80 WNTY 0UT-1 

04090 TBTY 

04100W2 BTFS FLTFIX.B 



04110 V/ATY OUTPUT-20 

04120 TBTY 

04 1 30W3 BTFS FLTF[X ,SE 



04140 
04150 
04160W4 



04170 V/ATY OUTPUT-20 

04186 RCTY 
04 190 ~ Wr+TT7271<5 

04200 AM WZ+28,10,10 

04210 AM W3+28, 10/10 

0422TJ WI W4+28, 10, !U 

04230 SM COUNT, 1,10 

04240 BP Wl 

04250 RCTY 

04260 RCTY 

04270 BNLC RDSTEP+12 

04280END fi ~~ 

042 90 3 S TAR TB 

04295 0^ c 1.0 

04300 DENT STAR TP 



LOAD SUBROUTINES 



WATY OUTPUT-20 
TBTY 

BTFS FLTF I X , T 



0751^ 


38 00650 


00100 


07526 


34 00000 


00108 


07538 
07550 
075f>7 
07562 


16 07865 
49 07834 
00005 
00005 


07561 
00000 
05916 
00989 


07568 


39 05783 


00100 


07580 


34 


00000 


00108 


07592 
07604 
0761 1 
07616 


16 07865 
49 07834 
00005 
00005 


07615 
00000 
04916 
01789 


07622 


39 05783 


00100 


07634 


34 00000 


00108 


07646 
07658 
07665 
07670 


16 07865 
49 07834 
00005 
00005 


07669 
00000 
G59f5 
52589 


07676 


39 


05783 


00100 


07688 


_3A 


00000 


00102 


07700 


11 


07501 


00002 


07712 


11 


07566 


000T0 


07724 


11 


07620 


000T0 


07736 


11 


07674 


000T0 


07748 


12 


00646 


00001 


07760 


46 


07490 


pyop 


07772 


& 


00000 


00102 


077«4 


34 


00000 


00102 


07796 


hi 


06670 


00900 


07808 


48 


00000 


00000 


07820 


49 


05830 


00000 


07833 


OOOO 1 




05830 








07834 
07846 


16 

49 


O8268 

07958 


08726 





END OF 

004Q2 

00414 

00567 

00611 

00654 

00666 

01Z82 

03537 

03717 

03849 

04027 

04250 

044 20_ 

04530 

04898 

05288 

05546 

05803 

Q581Q 

05974 

06478 

07358 

07646 



PASS I I 
CQNT 
NOBS 
L 

EY 

TABNO 
C0N6 

SE 

HONG 2 
HDNG7 
SUMSC 
•1AT 1 
PRINT 
„RTRN_2_ 
TR'ITK 
RTRN3 
V/RITE 
JUMP2 
^OUTPUT 
*STARJB 
■'TEST 10 
0VER2 
I D 2 
W4 



QQ4Q3-. 

00426 

00570 

00621 

00657 

00668 

03573 
03775 
03919 
04089 
04249 
04432 



N 

NO I N 

F 

K 

C0N8 

I 

HDNG3 

PRBL 

AVRG 

MAT 2 

NMBR 

V/RNUM 



04634 
04916 
05360 
05630 
05815 
05926 
05994 
065 34 
07382 
07808 



QOJiQS- 

00482 

00573 

00631 

00659 

00670 

03J8_9 

3609 

03787 

03937 

04154 

04274 

04431 




Q0_4QX 



00562 
00591 
00646 
00662 
00821 



HED 
AO 

COUNT 

C0N2 

ID 



RTRN4 
*FLTF I X 
*WRALPH 

V/R 
*S EVENS 

TEST2 
*RDSUMS 
"RDMAT2 

I DMOD 

END 



04644 
04915 
05380 
05692 
05825 
Q5938 



0146.1 HDNGO. 

03651 HDNG5 
03799 OBSR 
03977 *SMPCOR 
04190 RD1 
04364 COP 
04410 _ PRTR I 



06162 
06602 
07490 



*TABSUB 

ARG 
*SETZRO 
*SETS|G 

DCMAL 
_ TEST4 



*RDCORS 
0V£R3 
Wl 



04643 NUMB 
05024 JUMP 
05406 *DEC I ML 
05704 SETS 
05827 SIGN 

05350 IESJi_ 

06206 OVER 1 
O6658 *RDSTEP 
07538 W2 



QQ4Q2_ 
00564 
00601 
OO65I 
00664 
00989 
035QL 
03687 
03813 
04015 
04214 
04396 
_0Jt51.8_ 



04682 
05144 
05486 
05736 
05829 
J15362 
06422 
07282 
07592 



PROB 
*STEPNO 
RSCR 
OUT 
C0N4 
B 

HDNG.L 

HDNG6 

SUMS 

STEP 

CI 

*RTRN2A 
3 TAB 

*HEADNG 
TRNMT 
LARGE 
SET 

*EXPNT2 
_TEST8 

*RDMAT 1 
ID1 
W3 



o 



© 



00010* PROGRAM 80-C, PUNCH FINAL REPORT, MAY 7, 1963. 

00020* 



000 30 


DORG 


402 




00040C0NT 






00402 

00402 00080 


DSS 


80 


000501 


DS 


2.C0NT+1 




000 60 J 






0040 3 00002 


DS 


2.C0NT+3 


00070Y 






00405 00002 


DS 


2.CONT+5 


00080 PROB 






00407 00002 


DS 


2.C0NT+7 








00409 00002 


000 90 NOBS 


DS 


5.CONT+12 








00414 00005 


00 tOO N 


DS 


3,C0NT+24 








00426 00003 
00482 00080 


00 110 INDEX 


DSS 


80 


00 1,20 HE D 


DSS 


80 










00562 00080 


0013OSTEPN0 


DS 


3.HED+2 


00 140 L 




3.HED+5 


00564 00003 


DS 








00567 0000 3 


00 150NN 


DS 


3.HED+11 


00 160 N0I N 






00573 00003 


DS 


3<HED+8 








00570 0000 3 


00170A0 


DS 


10,HED+29 


00 J80RSQR 






00591 00010 
0060 1 00010 


DS 


10,HED+39 


00190EY 


DS 


10.HED+49 
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02740 TEST10 






06492 


43 


07176 


01001 


BD 


RDSTEP.C0N10 
















06504 


43 


07324 


01003 


02750 


B 


END 
















06516 


49 


08522 


OOOOO 


02760RDSUMS 


RNCD 


1-1 
















06528 


36 


00402 


00500 


02770 


TFM 


RTRN3+6,*+20 














06540 


16 


06374 


06560 


02780 


B 


HEADNG 












DORG 




06552 


49 


06140 


OOOOO 


02790 


*-3 














06560 









02800 


TR 


ALPHA-1 ,BLANKS-1 






02810 






06560 


31 00670 00832 


TF 


ALPHA+32 , SUMS+32 












06572 


26 00703 04099 


02820 


WACD 


ALPHA 










06584 


39 00671 00400 


02830 


WACD 


BLANKS 










06596 


39 00833 00400 


0281+0 


TF 


NMBR.N 










06608 


26 05585 00426 


02850 


TFM 


RTRN2+6,*+20 










06620 


16 05878 06640 


02860 


B 


PRINT 












06632 


49 05586 00000 


02870 


DORG 


*-3 












06640 




02880 


WACD 


BLANKS 












06640 


39 00833 00400 


02890 


TR 


ALPHA-1, BLANKS-1 










06652 


31 00670 00832 


02900 


TF 


ALPHA+66,SUMSQ+66 












06664 


26 00737 04169 


02910 


WACD 


ALPHA 












06676 


39 00671 00400 


02920 


WACD 


BLANKS 












06688 


39 00833 00400 


02930 


RNCD 


1-1 












06700 


36 00402 00500 


02940 


TFM 


RTRN4+6, TEST4 










06712 


16 06074 56468 


02950 


B 


PRTRI 












06724 49 05880 00000 


02960 


DORG 


*-3 












06732 




02970RDCORS 


RNCD 


1-1 












06732 


36 00402 00500 


02980 


BD 


0VER1,C0N2 












06744 43 06776 00995 


02990 


TFM 


RTRN3+6,*+20 










06756 


16 06374 06776 


3000 


B 


HEADNG 












06768 49 06140 00000 


30 1 


DORG 


*-3 












06776 




30200VER1 


TR 


ALPHA-1, BLANKS-1 












06776 


31 00670 00832 


3030 


TF 


ALPHA+1^,AVRG+14 










06788 


26 00685 04187 


3040 


WACD 


ALPHA 












6800 


39 00671 00400 


3050 


WACD 


BLANKS 












06812 


39 00833 00400 


03060 


TF 


NMBR.N 












06824 


26 05585 00426 



03070 


TFM 


RTRN2+6,*+20 


03080 


B 


PRI NT 


03090 


DORG 


*_3 


03100 


RNCD 


1-1 


03110 


WACD 


BLANKS 


03120 


TR 


ALPHA-1 , BLANKS-1 


.03130 


TF 


ALPHA+36.STDEVS+36 


3140 


WACD 


ALPHA 


.03150 


V/ACD 


BLANKS 


D-3160 


TF 


NMBR.N 


.03170 


TFM 


RTRN2+6,*+20 


03180 


B 


PRINT 


J03190 


DORG 


*-3 


,03200 


RNCD 


1-1 


3210 


TR 


ALPHA-1, BLANKS-1 


£3220 


TF 


ALPHA+34 ,SMPC0R+34 


£32 30 


WACD 


ALPHA 


£ 3240 


WACD 


BLANKS 


D3250 


TFM 


RTRN4+6, TEST6 


D3260 


B 


PRTRI 


H3270 


DORG 


*-3 


-Q328QRDMAT1 


RNCD 


1-1 


.0 3290 


BD 


0VER2.C0N2 


-0 3300 


BD 


0VER2.CONJ+ 


X) 3310 


TFM 


RTRN3+6,*+20 


1)3320 


B 


HEADNG 


3330 


DORG 


*-3 


33400VER2 


TR 


ALPHA-1, BLANK^-1 



326. 



06836 


16 


05878 06856 


06848 


49 


05586 00000 


06856 






06856 


36 


00402 00500 


06868 


39 


OO833 00400 


06880 


31 


00670 00832 


06892 


26 


OO707 04227 


06904 


j j 


0067 1 00400 


06916 


39 


OO833 00400 


06928 


26 


05585 00426 


06940 


16 


05878 06960 


06QR2 


4q 


CiSSf* 00000 


06960 






06960 


36 


00402 00500 


06972 


31 


00670 00832 


06984 


26 


00705 04265 


06996 


39 


0067 1 00400 


07008 


39 


00833 00400 


07020 


16 


060 7 4 06480 


07032 


49 


05880 00000 


07040 






07040 


3d 


00402 00500 


07052 


43 


07096 00995 


07064 


43 


07096 00997 


07076 


16 


06374 07096 


07088 


49 


06140 00000 


07096 






07096 


31 


00670 00832 



o 



o 

327- 



3350 


TF 


ALPHA+58, MAT 1 + 58 




03360 


WACD 


ALPHA 


07108 26 00729 04339 


03370 


WACD 


PLANKS 


07120 39 00671 00400 


03380 


WACD 


PLANKS 


07132 39 00833 00400 


03390 


TFM 


RTRN4+6, TEST8 


07144 39 00833 00400 


03400 


t' 


PR TR 1 


07156 16 06074 06492 


03410 


DORG 


'--3 


07168 42 05880 00000 


03420RDMAT2 


RNCD 


1-1 


07176 


03430 


DD 


0VER3.C0N2 


07176 36 00402 00500 


03440 


BD 


0VER3,C0N4 


07188 43 07244 00995 


03450 


BD 


OVER 3, CON 6 


07200 43 07244 00997 


03460 


TFM 


RTRN3+6,*+20 


07212 43 07244 00999 


03470 


D 


HEADNG 


07224 16 06374 07244 


03480 


00RG 


-a-_3 


07236 49 06140 00000 


034900VER3 


TR 


ALPHA-1 ,BLANKS-1 


07244 


03500 


TF 


ALPMA+56.MAT2+56 


07244 31 00670 00832 


03510 


WACD 


ALPHA 


07256 26 00727 04399 


03520 


WACD 


BLANKS 


07268 39 00671 00400 


03530 


WACD 


BLANKS 


07280 39 00833 00400 


03540 


TFM 


RTRN4+6, TEST 10 


0/292 39 00833 00400 


03550 


B 


PR TR 1 


07 304 1 6 60 7 4 5 6504 


O356O 


DORG 


*-3 


07316 49 05880 00000 


03570RDSTEP 


BNLC 


" + 12 


07324 


03575 


WACD 


BLANKS 


07324 47 07336 00900 


03580 


V/ACD 


BLANKS 


07336 39 OO833 00400 


03590 


RNCD 


STEPN0-2 


07348 39 00833 00400 
07360 36 00562 00500 



328. 



03600 


RNCD 


INDEX 


03610 


E'.TM 


RD.B-9 


03620 


BTM 


RD.SE-9 


03630 


BTM 


RD.T-9 


03640* 
O365O-' 
03660* 
03670 


PUNCH STEP RESULTS. 

TR ALPHA-1 , BLANKS-1 


03680 


TF 


ALPHA+8.STEP+8 


03690 


BT 


SUBR.STEPNO 


03700 


TF 


ALPHA+14,W0RK2 


03710 


TF 


ALPJ-IA+32 ,HDNG0+32 


03720 


BT 


SUBR , L 


03730 


TF 


ALPHA+38 ,W0RK2 


03740 


WACD 


ALPHA 


3750 


WACD 


BLANKS 


03760 


WACD 


BLANKS 


03770 


TR 


ALPHA-1 , BLANKS-1 


03780 


TF 


ALPHA+32 ,HDNG 1+32 


03790 


BTFS 


FLTFIX ,EY 


03800 


TF 


ALPHA+54, OUTPUT 


03810 


V/ACD 


ALPHA 


03820 


TR 


ALPHA-1 , BLANKS-1 


03830 


TF 


ALPHA+32 ,HDNG 2+32 


03840 


BTFS 


FLTFjX.RSQR 


O385O 


TF 


ALPHA+54, OUTPUT 



07372 36 00482 00500 
07384 17 05332 01234 
07396 17 05332 02034 
07408 17 05332 02834 



07420 31 00670 

07432 26 00679 

07444 27 05424 

07456 26 00 68 5 

07468 26 00703 

07480 27 05424 

07492 26 OO709 

07504 39 00671 

07516 39 00833 

Q7528 39 OO833 

07540 31 00670 

07552 26 00703 

07564 16 08591 
07576" 4 J 08560" 
07583 00005 
07588 00005 

07594 26 00725 

07606" 3? 0067 T 

07618 31 00670 

07630 26 00703 

07642 16 O859 T 
07654 49 O856O 
07661 00005 
07666 00005 



00832 

04277 

00564 

OO658 

03747 

00567 

OO658 

00400 

00400 

00400 

00832 

03787 

07587 
00000 
04412 
00611 

05299 

00400" 

00832 

03823 

0T66T~ 
00000 
04412 
00601 



07672 26 00725 P52 99 



03860 


WACD 


ALPHA 


03870 


T.R 


ALPHA-1 .BLANKS-1 


03880 


TF 


ALPHA+32 ,HDNG 3+ 32 


03890 


BTFS 


FLTFIX.SCIR 


03900 


TF 


ALPHA+54, OUTPUT 


03910 


WACD 


ALPHA 


03920 


TR 


ALPHA-1 , BLANKS-1 


03930 


TF 


ALPHA+32, HDNG4+32 


03950 


BT 


SUBR,NO]N 


03950 


TF 


ALPHA+40,W0RK2 


Q3960 


WACD 


ALPHA 


2 070 


WACO 


BLANKS ~ 


03980 


TR 


ALPHA-1 , BLANKS-1 


a ciQO 


TF 


ALPHA+32 , HDNG5+3 2 


64600 


efFS 


f LTF IX ,A0 


04010 


TF 


ALPHA+54, OUTPUT 


04020 


WACD 


ALPHA 


04030 


V/ACD 


BLANKS 


04040. 




ALPHA-1 , BLANKS-1 


04050 


TF 


ALPHA+28,HDNG6+26 


04060 


TF 


ALPHA+82,HDNG7+54 


04070 


WACD 


ALPHA 


04080 


V/ACD 


BLANKS 



04090* 

04100* SET ID OF INDEPENDENT VARIABLES 



07684 39 00671 00400 

07696 31 00670 00832 

07708 26 00703 03859 

07720 16 08591 87743 
07732 49 O856O 00000 
07739 00005 04412 
07744 00005 OO63I 

07750 26 00725 95292 

07762 39 00671 00400 

07774 31 00670 00832 

7 7 8 6 2 6 00 7 3 38 9 5 

07798 27 05424 00570 

07810 26 00711 OO658 

07822 39 00671 00400 

07834 39 00833 00400 

07846 31 00670 00832 

07858 26 00703 03237 

O787O 16 08591 07893 
07882 49 O856O 00000 
07889 00005 04412 
07894 00005 0O591 

07900 26 00725 05299 

07912 39 00671 00400 

07924 39 00833 00400 

07936 31 00 670 00832 

07948 26 00699 03967 

07960 26 00753 04025 

07972 39 00671 00400 

07984 39 00833 00400 



041 10* 
04120 


TF 


COUNT, NN 


04130 


TFM 


1,1,10 


04140 


TFM 


ID1+1 1 .INDEX 


04.150 


TFM 


ID2+6, IB "" 


04 1601 D1 


BD 


*+20, 99999 


04170 


['. 


1 DMOD 


04180 


DORG 


*_ 3 


04190 


TF 


*+23, 1 D 1+1 1 


04200 


BNR 


*+20, 99999 


04210 


B 


1 DMOD ' " 


04220 


DORG 


**-3 


04230 


C 


I ,L 


04240 


BE" ~" 


j DMOD 


042501 D2 


TF 


99999, 1 


04260 


AM 


ID2+6.2, 10 


04270 IDMOD 


Am 


IDI+Tf ,1, 10 


04280 


AM 


1 ,1,10 


04290 


SM 


COUNT ,1,10 


04300 


~BF~"~ 


I D T 


04310 


TF 


COUNT, NOIN 


04320 


TFM 


W1 + 11JD 


04330 


TFfl W2+28.B 


04340 


TFM 


W3+28.SE 


04350 


TFM 


W4+28,T 


04360 


" TR 


""A L FHfi -T, BUTNKT 


04370W1 


BT 


SUBR, 99999 


04380 


TF 


ALPHA+8.WORK2 



07996 26 00646 00573 
08008 16 00403 OOOOl 
O802O 16 08055 00482 
08032 16 08126 01O75 
08044 43 08064 9999? 
08056 49 "8144 00000 
08064 

08064 26 08087 08055 
08076 45 08096 99999 
08088 49 08144 00000 
08096 

08096 24 040 3 00 5 67 
08108 46 08144 01200 
08120 26 99999 00403 
08132 11 08 126 00 002 
08144 11 08055 OOOOl 
08 156 11 00403 OOOOl 
08168 12 00646 OOOOl 
08180 46 08044 01100 
08192 26 00646 00570 
08204 16 08275 1075 
08216 16 08316 01243 
08228 16 O8358 02043 
08240 16 8400 2843 
08252 31 00670 00832 
08264 27 05424 99999 
08276 26 00679 OO658 



c 





331. 



04390W2 


BTFS 


FLTF IX ,99999 


O8288 16 08591 08311 
08300 49 08560 00000 
08307 00005 04412 


04400 


TF 


ALPHA+34 .OUTPUT 


O8312 00005 99999 


044 10V/3 


BTFS 


FLTF IX ,99999 


083 18 26 00705 05299 

08330 16 08591 (38353 
08342 49 O856O 00000 
08349 00005 04412 


04420 


TF 


ALPHA+60, OUTPUT 


08354 00005 99999 


Oi t if30Wit 


BTFS 




08360 26 00731 05299 

08372 16 08591 08395 
08384 49 08560 00000 
08391 00005 04412 


FLTF IX , 99999 


04440 




A LPHA+86, OUTPUT 


08396 00005 99999 


TF 


04450 




ALPHA 


08402 26 00757 05299 


V/ACD 


04** 60 






08414 39 00671 00400 


AM 


W1+1 1 ,2, 10 


04470 






08426 11 08275 00002 


AM 


W2+28, 10, 10 


04480 






08438 11 08316 OOOTO 


AM 


W3+28, 10, 10 


04490 




W4+28,10,10 


08450 11 08358 OOOlO 


AM 








08462 1 1 08400 OOOlO 


04500 


SM 


COUNT, 1 , 10 


64510 






08474 12 00646 OOOOl 


BP 


Wl-12 


04 520 


WACO 




08486 46 08252 01100 


BLANKS 


04530 


V/ACD 


BLANKS 


08498 39 00833 00400 


04540 


BNLC 




08510 39 00833 00400 


RDSTEP+12 


04550END 


H 




08522 47 07336 00900 


0456O 




STARTC 


08534 48 00000 00000 


B 


04565 


DAC 


1,0 


08546 49 06376 00000 


04570 






08559 00001 


D£ND 


STARTC 








06376 


LOAD SUBROUTINES 










O856O 16 08994 09452 








08572 49 08684 



END OF 


PASSI 1 






00405 


00402 


CONT 


00403 


1 


00414 


NOBS 


00426 


N 


00482 


00567 


L 


00573 


NN 


00570 


00611 


£Y 


00621 


F 


00631 


00663 


OUT 


00666 


TABNO 


00669 


00994 


CN 


00995 


C0N2 


00997 


01003 


CON 10 


01075 


1 D 


01243 


03643 - 


-| NAREA 


03715 


HDNGO 


03755 


03863 


HDNG4 


03905 


HDNG5 


03941 


04041 


VRBL 


04053 


OBSR 


04067 


04191 ' 


"STDE VS 


04231 


"'SMPCOR 


04269 


04412 - 


FLTF IX 


0441 1 


ARG 


04520 


04856 * 


-WRALPH 


04876 


*SETZR0 


04902 


05126 


WR 


05 188 


''-SETS 1 G 


05200 


05311 - 


-SEVENS 


05321 


DCMAL 


05323 


05368 


RD1 


05392 


CI 


05424 


05586 


PRJNT 


05585 


NMBR 


05634 


05748 


COP 


05780 


""ENDCRD 


05824 


05940 


BTAB 


05964 


TRMTK 


06068 


06138 


BRB 


06140 


-■'HEADNG 


O6368 


06468 


TEST4 


06480 


TEST6 


06492 


06732 - 


"RDCORS 


06776 


OVER 1 


07040 


07244 


0VER3 


07324 


•-RDSTEP 


08044 


08264 


wi 


08288 


W2 


08330 



1 

J 


UU HU / 


v 

T 


UUHU " 


pr nR 

r r\ UD 


1 Mnrv 
INULA 


UlooZ 


urn 
ntu 




j 1 emu 


IN U 1 M 


nn c q 1 


An 

MU 


nn An 1 
uu ou 1 


RSCR 




nn ALA 

UU OHO 


COUNT 




W0RK2 




UU O / 1 


ALPHA 


00833 


*BLANKS 


C0N4 


nnuqq 


C0N6 


100 1 


CON 8 


p 


U £UH J 


S E 


n oPdi 3 

U iunj 


j 




n 37 Q 1 


HDNG 2 


n 3fi 9 7 


HDNG 3 




n 2Q7 1 


HDNG 7 


UHU L 


PRBL 


SUMS 


04103 


SUMSC 


04173 


AVRG 


STEP 


04281 


MAT 1 


04343 


MAT 2 


JUMP 


04640 


TRNMT 


04784 


WR | TE 


-DEC 1 ML 


04982 


LARGE 


05042 


JUMP 2 


SETS 


05232 


SET 


05299 


*0UTFUT 


SIGN 


05325 


*EXPNT2 


05332 


RD 


SUBR 


05448 


EXCHG 


05508 


BRNF 


"BRTRMT 


05664 


BRT1 


05712 


RTN3 


*R TRN2A 


05872 


RTRN2 


05880 


PRTRI 


RTRN4 


06077 


NUMB 


06078 


*TABSUB 


RTRN3 


06376 


*STARTC 


06456 


TEST2 


TESTS 


06504 


*TEST10 


06528 


*RDSUMS 


"RDMAT 1 


07096 


0VER2 


07176 


*RDMAT2 


ID1 


08120 


ID2 


08144 


1 DMOD 


W3 


08372 


W4 


0853^ 


END 



00010* PROGRA,". 
00020* 

000 30REF OS 


30-0, RESI 
,17500 


00040 


DORG 


402 


00050C0NT 


OSS 


80 


00060DATE"" 


DS 


6,C0h7+5 


„ 00070PROB 


DS 


2.C0NT+7 


,00080 NOBS 


DS 


5, CONT+1 2 


000 CONFORM 


DS 


3.CONT+15 


00 100 INVAR 


DS 


3, CONT+1 8 


001 10N0VAR 


DS 


3.CONT+21 


00120N 


DS 


3,C0NT+24 


001 30NDEP 


DS 


3.CONT+27 


0O1.40N0TRAN 


DS 


3.CONT+30 


-00150N0C0N 


DS 


3,CONT+33 


OOI6ONCOL 


DS 


2,CONT+35 


00170NELIM 


DS 


3.COMT+38 


; 00180C0N1 


DS 


1,C0NT+3'y 


00190C0N2 


DS 


1.C0NT+40 


0020OC0H3 


DS 


1 ,C0NT+4l 


00210C0N4 


DS 


1 .CONT+42 


00220C0N5 


DS 


1.C0NT+43 


00230C0N6 


DS 


1 ,C0NT+44 


00240C0N7 


DS " 


1 .CONT+45 


00250CON8 


DS 


1,C0NT+46 


OO26OCON9 


DS 


1 ,C0NT+4? 


00270CON 10 


DS 


1 ,C0NT+43 


00280C0N 1 1 


DS 


1 ,C0NT+4y 


0025>0C0N12 


DS 


1 .C0NT+50 



OCTOBER 29,1963. 

17500 00000 
00402 

QG4Q2 00080 
00407 00006 
00409 00002 
00414 QQQQ5 
00417 00003 
00420 0000 3 

00423 QQ003 

00426 00003 
00422 00003 

00432 00003 

00435 00003 
00437 00002 
0044Q 00003 

00441 00001 

00442 00001 

00443 00001 

00444 00001 

00445 00001 

00446 0Q0Q1 

00447 00001 

00448 00001 
00443 OOO01 

00450 00001 

00451 00001 

00452 00001 



00 300CON13 DS 

00310C0N14 DS 

00320CON15 DS 

00 330C0N16 DS 

00 340C0N17 DS 

00350CON18 DS 

QQ36O0BSER DS 

00 3701 ND DS 

00380 1 D DS 

QQ390IDD DS 

Q0400F0RMAT DS 

QQ4 ID INDEX DS 

QQ420C0NST DS 

00 4 30DATA1 DS 

GC440DATA2 DS 

00450B DS 

00460SE DS 

00470T OS 

00480SUM1 OS 

00490S I GMA DS 

O05OOR DS 

00510WT DS 

00S20ADKK DS 

0053OADRNN DS 

00540ADIJ DS 

00550ADRIJ DS 

00560SIGN3 DS 

00570C0UNT DS 



1.C0NT+51 

1 s CONT+52 

1 .CONT+53 

1.CONT+54 

1,CONT+55 

1.C0NT+56 

10.C0NT+79 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 



00453 00001 

00454 00001 

00455 00001 

00456 00001 

00457 00001 

00458 00001 
00481 00010 
00486 00005 
00491 00005 
00496 00005 
00501 00005 
00506 00005 
00511 00005 
00516 00005 
00521 00005 
00526 00005 
00531 00005 
00536 00005 
00541 00005 
00546 00005 
00551 00005 
00556 00005 
00561 00005 
00566 00005 
00571 00005 
00576 00005 
00581 00005 
00586 00005 



© 

335. 



no q ftnr wtp 


nc 


3 




One onr td 

UU 5 yuu 1 K 


nc 


3 


00589 00003 


ho Ann i 




3 


00592 0000 3 


nn A in i 

UU O IUJ 


nc 


3 


005 95 3 


on Aonkf 

uU OZU^- 


DS 


3 


00598 0000 3 


UUo3Ur 


DS 


3 


0060 1 0000 3 


nn £.)• An 


DS 


3 


00604 0000 3 


UU bpUnii. 


DS 




0060 7 0000 3 


UU bbu 1 Vt 


DS 


3 


00611 00004 


UUb/U I Vr 


DS 


3 


00614 00003 


UU DoU I Lrlr | 


DS 


10 


00617 0000 3 


UU DyU l CrlrZ 


DS 


10 


00627 00010 


nn 7nnr v 

UU /UUt I 


DS 


10 


00637 00010 


UU / lUKol^K 


nc ■ 

Ui 


10 


00647 00010 


nri *7*>ncnD 

UU / ZUoyK 


DS 


10 


00657 00010 


nn 7 annr 

UU / jUUr 


nc 


10 


00667 00010 


nn 7L/1P 

UU / HU r 


nc 


in 


00677 00010 


UU /pUr 1 N 


DS 


10 


00687 00010 


nn i AfiF ni it 
uu /pur uu i 


DS 


10 


00697 00010 


nn 7 7A LJ I r* LJ 

UU / /UH 1 brt 


DS 


10 


00707 00010 


nn 7Qn\/D 

UU / oU .V r 


DS 


10 


00717 00010 


007Q0Y/F 


DS 


in 


00727 00010 


00 800 OUT 


DS : 


80 


00737 00010 


00810 


DC. 




00817 00080 


00820PRBL 


DAC 


6, PR 0B (2) 


00818 00001 


8 30.VRBL 


DAC 


5, VAR(5) 


00821 00006 


008400BSR 


DAC 


7, 0BSER(u) 


00833 00005 



00843 00007 



00 850 


DC 


8, 10000000 




00860FP001 


DC 


2,-2 


00863 oonnR 


00870 


DC 


8, 10000000 


00865 00002 


00 880FHIGH 


DC 


2,50 


OO873 00008 


00 890 


DC 


8,0 


00875 00002 


900ZER0 


DC 


2,-99 


OO883 00008 


00910ZER0S 


DC . 


10,0 


00 88*; 000 09 

UUJ UUUU£ 


00 920 


DC 


8,10000000 


oofloc nnnin 

\J\J\jyj UU U |U 


00 930 ONE 


DC 


2,1 


nn on ? r\r\t\f\Q 
uuyu i UUUUo 


00 940C0NTR 


DSS 


80 


nn one nnr^no 
uuyu? UuvuZ 


00 950CONTR1 


DS 


,C0NTR+1 


nnon£ nnnfin 


00 960 C0NTR2 


DS 


( ,C0NTR+3 


uuyu/ uuuuu 


00 970CONTR3 


DS 


,C0NTR+5 


nnofio nnnnn 


00 980C0NTR4 


DS 


.C0NTR+7 


ooqii nnrtnn 

UU J7 1 1 UUUUU 


00 990BLANKS 


DAS 


80 


nnq.i a nnnnn 

wy 1 j uuuuu 


1000 


DA.C 


1,(5> . 


00987 00080 


01010ALPHA 


DAS 


80 


01147 onnri 1 

U 1 1 *T / UU UU 1 


01020 


DAC 


1,(2) 


1 14q nnnftn 

V 1 M UUUUU 


01030W0RK2 


DS 


12 


o 1 30 q nnnn 1 


01040PRED 


DS 


10 


01391 nnni9 

U 1 2£> 1 UUU 1 £. 


01050RES 


DS 


10 


U 1 J J 1 UUU 1 u 


Q 1060 SAVE 


DS 


10 


n 1 alii nnn in 
u 1 y\ 1 uuu 1 u 


01070DSQR 


DS 


10 


01351 00010 


1080SUMRES 


DS 


10 


01361 00010 


01090SUMAB 


DS 


10 


01371 00010 


01100L 


DS 


,0VJ-7h 


01381 000 10 


1 M0N0I N 


DS 


,0UT-71 


00743 00000 


01120AO 


DS ; 


,0UT-50 


00746 00000 
00767 00000 



1 1 30* * 


* 


* * * 


*• * 


* * * 




1 11+0* SUBROUTINE FOR READING 


B, SE AND T 




* 




01150* * 






•k ie -k 


* 


* * 




1 1 60 


OS 


5 




01386 


00005 




01 170RD 


TF 


RD1+6.RD-1 




01388 


26 01430 


01387 


01180 


SM 


RDI+6,9, 10 
















01400 


12 01430 OOO09 


01190 


TF 


COUNT, NOi N 




01412 


26 00586 


00746 


01200RD1 


RNCD 


99999 




01424 


36 99999 


00500 


01210 


AM 


RDI+6,70, 10 
















01436 


11 01430 00070 


01220 


SM 


COUNT, 7, 10 
















01448 


12 00586 00007 


012 30 


BP 


RD1 




01460 


46 01424 


1 1 00 


01240 


BB 






01472 


42 00000 


00000 


01250 


DORG 


*-9 




01474 






01260* 














01270* SUBROUTINE TO TRANSFORM 


NUMBERS TO 


ALPHA . 






01280* 














01290 


DS 


6 




01479 


00006 




01300SUBR 


TFM 


EXCHG-f- 18.WORK2 




01480 


16 01522 


01321 


01310 


TFM 


EXCHG+23.SUBR- 


I 


01492 


16 01527 


01479 


01320EXCHG 


TF 


W0RK2, SEVENS 




01504 


26 01321 


08435 


01330 


TD 


W0RK2, 99999 




01516 


25 01321 


99999 


01340 


TF 


BRNF+11,*-6 




01528 


26 01575 


01522 


01350 


SM 


EXCHG+23, 1,10 




01540 


12 01527 


0000 1 


1 360 


SM 


EXCHG+18,2, 10 
















01552 


12 01522 


00002 


01370BRNF 


BNF 


EXCHG+ 12, 99999 














01564 


44 01516 


99999 


01380 


TF 


*+l8,BRNF+1 1 
















01576 


26 01594 


01575 


01390 


CF 


99999 




01588 


33 99999 


00000 


01*400 


TF 


*f 30.BRNF+ 1 1 
















01600 


26 01630 


01575 


01410 


SM 


*+!8, 1 , 10 








OOOOl 








01612 


12 01630 


01420 


SF 


99999 




01624 


32 99999 


00000 



01430 BB 

01440 DORG *-9 

01450HDNG8 DAC 16,0BS ACTUAL® 

01460HDNG9 DAC 25, PRED 

01470HDNG10 DAC 13.SSQR = <s> 

01480HDNG11 DAC 13.DSQR/SSQR = O 

01490HDNG12 DAC 13,SUM RES = S> 

01500HDNG13 DAC 13, AVE AB RES= & 

01510HDNG14 DAC 1 3,0BSERVATI ONSO 

1520STARTD RNCD C0NTR1-1 



01525 RCTY 

01530ALPH TR ALPHA-1 ,BLANKS-1 

01540 RACD ALPHA 

01550 WATY ALPHA 

01560 RCTY 

01570 BD *+-24,C0NTR2 

01580 WACD ALPHA 

01590 BNR *+20,ALPHA+158 

01600 B ALPH 

01610 DORG *-3 

01620 BD *+36,CONTR2 

Q 1.630 WACD BLANKS 

01640 WACD BLANKS 

01650 RCTY 

01660* 

01670* READ AND FLAG PARAMETERS. 
01680* 

01690 TFM RET2+6,*+20 

Oi/00 B START 



01636 42 00000 00000 
01638 

01639 00016 

RES<2> 

01 671 00025 

01721 00013 

01747 00013 

01773 00013 

01799 00013 

01825 00013 

01850 36 00906 00500 

01862 34 00000 00102 

01874 31 01148 00986 

01886 37 01149 00500 

01898 39 01 149 00100 

01910 34 00000 00102 

01922 4 3 01946 00909 

01934 39 01 149 00400 

01946 45 01966 01307 

01958 49 01874 00000 

01966 

01966 4 3 02002 00 909 
01978 39 00987 00400 
01990 39 00987 00400 
02002 34 00000 00102 

02014 16 10500 02034 
02026 49 08896 00000 



© 



01710 DORG *-3 
01720* 

1730* READ STEP DATA, 

1740* : ? \ 

1750 , R.NCD, OUT-79 

1760. TF ;.COUNT,N 

1770 ■ TF *f 18, I ND 

1780RNC RNCD 99999 

1790 AM , RNC+6,80,10 

1800 .SM COUNT, 80, 10 

01810 BP RNC 

01820 BT RD,B 

01830 BT RD,SE 

1840 BT RD,7 

1 850* 

01860* INITIALIZE. 
01870* 

1880 TR ALPHA-1 ,BLANKS-1 

1890 TF ALPHA+30.HDNG8+30 

1 900 TF ALPHA,+76,HDNG9+46 

01910 BD *+6O,C0NTRl 

01920 RCTY 

01930 WATY ALPHA 

01940 RCTY 

01950 RCTY 

01960 BD *+36,CONTR2 

01970 WACO ALPHA 

1980 WACD BLANKS 

01990 TFM PRED7+11,0 

02000 TDM PR E D 9+ 1 , 1 

02010 TFLS OBSER,ZERO 



02034 



02034 


36 


00738 


00500 


02046 


26 


00586 


0042 6 


02058 


26 


02076 


00486 


UiU /u 


3d 


yy999 


00500 




1 1 


\>t\) 1 D 


nnnI3n 
UUUoU 




1 "> 
1 L 




OOOoO 


n? 1 n A 

UZ 1 UD 


H O 


02070 


1 100 


fi? lit? 


H 


n 1 ?Qfl 


Uui>2o 


02 1 30 


7 7 


1 388 




02 1 42 


7 




nnc 2t 


02154 


31 


01 148 


00 986 


02166 


26 


01179 


01669 


02178 


26 


01225 


01717 


02190 


43 


02250 


00907 


02202 


34 


00000 


00102 


02214 


39 


01149 


00 100 


02226 


34 


00000 


00102 


02238 


34 


00000 


00102 


02250 


43 


02286 


00 909 


02262 


39 


01 149 


00400 


02274 


39 


00987 


00400 


02286 


16 


03389 


00000 


02298 


15 


03925 


00001 


02310 


16 


10795 


02333 



a 



34 0. 



02020 TFLS SQR,ZER0 

020 30 TFLS SAVE, ZERO 

02040 TFLS DSQR , ZERO 

02050 TFLS SUMRES,ZERO 

02060 TFLS SUMAB,ZERO 

02070 TF PRED6+28,DATA1 

02080 SM PRED6+28, 10, 10 

02090 A PRED6+27,L 

02100 TF PRED8+28,PRED6+28 
02110* 

02120* READ, FLOAT, AND STORE ONE OBSERVATI 



02322 49 10744 OOOOO 

0232 9 00005 C0481 
02334 00005 0O885 

02 340 16 10795 02 363 
02 352 49 10744 OOOOO 
02359 00005 0O667 
02364 00005 00885 

02370 16 10795 02393 
02382 49 10744 OOOOO 
02389 00005 01 351 
02394 00005 00885 

02400 16 10795 02423 
02412 49 10744 OOOOO 
02419 00005 01361 
02424 00005 00885 

024 30 1 6 10 7 95 24 5 3 
02442 49 10744 OOOOO 
02449 00005 01 371 
02454 00005 00885 

024 60 1 6 10 7 95 02 4 83 

02472 49 10744 OOOOO 

02479 00005 01381 

02484 00005 00885 

02 4 90 2 6 30 66 0G516 

02502 12 03066 OOOlO 

02514 21 3065 00743 

02526 26 03442 03066 



02 1 30* 
02140L00P 

02150 

02160 

02170 

02180 

02 190 

02200 

02210 

02220* 



ON, 



TF WCTR, INVAR 

BT RFS , DATA 1 

BNC1 TRD 

TF WORDS, INVAR 

TF PR I NT 1+28, DATA 1 

TFM RET1+6,*+20 

B PR I NT 

DORG *-3 



02538 26 
02550 27 
02562 47 
02574 26 
02586 26 
02598 16 
02610 49 
02618 



04682 00420 
04688 00516 
02618 00100 
05772 00420 
05814 00516 
05882 02618 
05774 OOOOO 



34 



022 30* TRANSFORM DATA, 
02240* 



02250 TRD 


CM 


NOTRAN.O, 10 


02260 


BE 


CALC 


02270 


BTM 


TFS.O, 10 


02280 


BNC2 


CALC 


02290 


TF 


WORDS, N 


02300 


TF 


PRt NT 1+28, DATA 1 


02310 


TFM 


RET1+6,*+20 


02320 


B 


PR 1 NT 


Q2330 


DORG 


*-3 


02340* 

02350* CALCULATE RES ! DUALS . 
02360* 

02 370CALC TFM 1,1,10 


02 380 


TF 


PRED 1+1 1,1 ND 


02 330 


TF 


PRED3+28.DATA1 


02400 


TF 


PRED4+28.B 


02410 


TF 


COUNT, N 


02420 


TFLS 


PRED.AO 


024 30 PRED 1 


BNR 


*+20 , 99999 


02440 


B 


PRED5 


02450 


DORG 


*-3 


02460 


TF 


PRED2+11.PRED1+11 


0247OPRED2 


BD 


*+20, 99999 


02480 


8 


PRED5 


-32490 


DORG 


*-3 


02500 


r 


1 ,L 



02618 


14 


00432 


000O0 


no tan 


HO 


no *7 1 n 


n 1 nn 


02642 


17 


05886 


000 Do 


02654 


47 


02710 


00200 


02666 


26 


05772 


00426 


02678 


26 


05814 


00516 


02690 


16 


05882 


02710 


02702 


49 


05774 


00000 


02710 








02710 


16 


00595 


0000 1 


02722 


26 


02811 


00486 


02734 


26 


02904 


00516 


02746 


26 


02934 


00526 


02758 


26 


00586 


00426 


02770 
02782 
02789 
027 94 


16 10795 
49 10744 
00005 
00005 


02793 
00000 
01331 
00767 


2 800 


45 


02820 


9-9999 


02812 


49 02978 


00000 


02820 








02820 


26 02843 


02811 


02832 


43 


02852 


99999 


02844 


49 02978 


00000 


02852 








02852 


24 00595 


00743 



© 



342 



02510 BE 

02520PRED3 TFLS 

02530PRED4 FM 

02540 FA 

02550 AM 

02560PRED5 AM 

02570 AM 

02580 AM 

02590 SM 

02600 BP 

02610PRED6 TFLS 

02620 FS 

02630 BD 

02640 B 

02650 DORG 

02660 BD 

O267O TF 

2 680 TF 

02690EX1 FEX 



\ < 



PRE05 

TEMP 1,99999 

TEMPI, 99999 

PRED, TEMPI 

PRED4+28, 10,10 
PRED3+28.10, 10 
I . 1 , 10 

PREDI+11,1,10 

COUNT, 1 , 10 
PRED1 
R-ES, 99999 

RES, PRED 

*+20,C0NTR3 

PRED7-12 

*-3 

EX2.C0NTR4 

EX1+23.PRE06+28 

EX1+28.PRED6+28 

99999,99999 



02864 46 02978 01200 

02876 16 10795 02899 
02888 49 10744 00000 
02895 00005 00627 
02900 00005 59999 

02906 16 10795 02929 

02918 49 10544 00000 

02925 00005 00627 

02930 00005 59999 

02936 16 10795 02959 

02948 49 10524 00000 

02955 00005 01331 

02960 00005 00627 

02966 11 02934 000 10 

02978 11 02904 OOOTO 

02990 11 00595 0000 1 

03002. 11 02811 OOOOl 

03014 12 00586 OOOOl 

03026 46 02800 01 100 

03038 16 10795 03061 
03050 49 10744 00000 
03057 00005 01341 
03062 00005 59999 

03068 16 10795 03091 
03080 49 10504 00000 
03087 00005 01341 
03092 00005 01331 

03098 43 03118 00911 

03110 49 03366 00000 

03118 

03118 43 03252 00913 

03130 2 6 317 7 30 66 

03142 2 6 3182 3066 

03154 16 10795 03177 
03 166 49 10684 00000 
03173 00005 59999 
03178 00005 59999 



02700 FEX PRED.PRED 

02710 FEX RES, RES 

02720 B PRED7-12 

2 7 30 DORG *-3 

02740EX2 TF EX 3+2 3 , PRED6+28 

02750 TF EX3+28.PRED6+28 

-CL2760EX3 FEXT 99999,99999 

02770 FEXT PRED.PRED 

0278D FEXT RES, RES 

02790 AM PRED7+11 , 1, 10 

02800PRED7 BTM SUBR.O 

02810 TR ALPHA-1 ,BLANKS-1 

02820 TF ALPHA+8.W0RK2 

02830PRED8 BTFS FLTF IX, 99999 

02840 TF ALPHA+34, OUTPUT 

02 850 BTFS FLTF I X ,PRED 

02860 TF ALPHA+60, OUTPUT 



343. 



03 1 8i+ 16 10795 03207 
03196 49 10684 00000 
03203 00005 G 1 331 
03208 00005 1 331 

03214 16 IO795 03237 
3226 49 10684 00000 
03233 00005 01341 
03238 00005 01341 

03244 49 3366 00000 

O3252 

O3252 26 3299 03066 

03264 26 03304 030 66 

03276 16 10795 03299 
03288 49 10664 00000 
03295 00005 99999 
03300 00005 99999 

03306 16 10795 03329 
03318 49 10664 00000 
03325 00005 01331 
03330 00005 01331 

03336 16 10795 03359 
03348 49 10664 00000 
03355 00005 01341 
03360 00005 01341 

03366 1 1 03389 00001 

03378 17 01480 00000 

33 90 3 1 0114 8 986 

03402 26 01157 01321 

03414 16 10795 03437 
03426 49 10764 00000 
03433 00005 07536 
03438 00005 99999 

03444 26 01 183 08423 

03456 16 10795 03479 

03468 49 10764 00000 

03475 00005 07536 

03480 00005 01331 

03486 26 01209 08423 



344. 



02870 BTFS FLTF I X ,RES 

02880 TF ALPHA+88 , 0UTPUT+2 

02890 BD *+36,C0NTR1 

02900 WATY ALPHA+2 

02910 RCTY 

02920 BD *+24,C0NTR2 

02930 WACD ALPHA 

02940 TFLS TEMPI, RES 

02950 FM TEMPI, TEMPI 

02960 FA SQR, TEMPI 

02970 FA SUMRES.RES 

02980 FS SAVE, RES 

02990 TFLS TEMPI, SAVE 

3000 FM TEMPI, TEMPI 

03010 FA DSQR, TEMPI 



03498 16 10795 03521 
03510 49 10764 00000 
03517 00005 07536 
03522 00005 01341 

03528 26 01237 08425 

03540 43 03576 00907 

03552 39 01151 00100 

03564 34 00000 00102 

035 7 6 4 3 3600 00 90 9 

035 8 8 39 0114 9 040 

03600 16 10795 03623 
03612 49 10744 00000 
03619 00005 00627 
03624 00005 01341 

03630 16 10795 03653 
03642 49 10544 00000 
03649 00005 00627 
03654 00005 00627 

03660 16 10795 53683 
03672 49 10524 00000 
03679 00005 00667 
03684 00005 00627 

03690 16 10795 037 13 
03702 49 10524 00000 
03709 00005 01371 
03714 00005 01341 

03720 16 10795 03743 
03732 49 10504 000 00 
03739 00005 01351 
03744 00005 01341 

03750 16 10795 03773 

03762 49 10744 00000 

03769 00005 00627 

03774 00005 01351 

03780 16 10795 038O3 
03792 49 10544 00000 
03799 00005 00627 
03804 00005 00627 

03810 16 10795 03833 
03822 49 10524 00000 
03829 00005 01361 
03834 00005 00627 



03020 


TFLS 


SAVE, RES 


03030 


BNF 


*+24,RES-2 


03040 


CF 


RES-2 


3050 


FA 


SUMAB.RES 


03060 PRE D9 


NOP 


PRED10 


Q3Q70 


TDM 


PRED9+1.9 


030 fin 


TFLS 


DSQR.ZERO 


03090PRED10 


FA 


OBSER , ONE 


031Q0 


BNLC 


LOOP 


jinm 


RCTY 




03120 


RCTY 




Xi 34 30 


BT 


SUBR,PRE07+11 


0314Q 


TR 


ALPHA-1 ,BLANKS-1 


03150 


TF 


ALPHA+10.W0RK2 


3160 


TF 


ALPHA+36.HDNG 14+24 


0^+70 


WATY 


ALPHA 


03180 


RCTY 




03190 


TR 


ALPHA-1 , BLANKS-1 


03200 


TF 


ALPHA+22,HDNG 12+22 


3210 


BTFS 


FLTF 1 X ,SUMRES 



03840 16 10795 03863 
03852 49 10744 00000 
03859 00005 01351 
03864 00005 01341 

03870 44 03894 01339 

03882 33 01339 00000 

03894 16 10795 03917 
03906 49 10524 00000 
03913 00005 01381 
03918 00005 01341 

03924 41 03978 00000 

03936 15 03925 00009 

03948 16 10795 03971 
03960 49 10744 00000 
03967 00005 01361 
03972 00005 00885 

03978 16 10795 04001 
03990 49 10524 00000 
03997 00005 00481 
04002 00005 00905 

04008 47 02538 00900 

04020 34 00000 00102 

04032 34 00000 00102 

04044 27 01480 03389 

04056 31 01148 00986 

04068 26 01159 01321 

04080 26 01185 01849 

04092 39 01149 00100 

04104 34 00000 00102 

04116 31 01148 00986 

04128 26 01 171 01795 

04140 16 10795 04163 
04152 49 10764 00000 
04159 00005 07536 
04164 00005 01371 



346 



03220 


TF 


A LPHA+50 , OUTPUT+2 


032 30 


WATY 


ALPHA 


3240 


RCTY 




n 11 *;n 
.y 5*J 


BD 


*+48,C0NTR2 


03260 


WACO 


BLANKS 


03270 


WACD 


BLANKS 


03280 


WACD 


ALPHA 


03290 


TR 


ALPHA-1, BLANKS-1 


03300 


TF 


ALPHA+22,HDNG 13+22 


Q3J10 


FD 


SUMAB, OBSER 


3320 


BTFS 


FLTF 1 X ,SUMAB 


Q3330 


TF 


ALPHA+50, OUTPUT+2 


Q 3340 


WATY 


ALPHA 


-03350 


RCTY 




03360 


BD 


*+24,C0NTR2 


3 370 


WACD 


ALPHA 


O33SO 


TR 


ALPHA-1 , BLANKS-1 


03390 


TF 


ALPHA+22.HDNG 10+22 


0-3400 


BTFS 


FLTF IX ,SQR 


03410 


TF 


ALPHA+50, OUTPUT+2 


3420 


WATY 


ALPHA 


34 30 


RCTY 




3440 


BD 


*+24,C0NTR2 



04170 26 01199 

04182 39 01149 

04194 34 00000 

04206 43 04254 

04218 39 00987 

04230 39 00987 

04242 39 01149 

04254 31 01148 

04266 26 01171 

04278 16 10795 
04290 49 10564 
04297 00005 
04302 00005 

04308 16 10795 
04320 49 10764 
04327 00005 
04332 00005 

04338 26 01 199 

04350 39 01149 

04362 34 00000 

04374 43 04398 

04386 39 01149 

04398 31 01148 

04410 26 01171 

04422 16 10795 
04434 49 10764 
04441 00005 
04446 00005 

04452 26 01199 

04464 39 01149 

04476 34 00000 

04488 43 04512 



08425 

00100 

00102 

00909 

00400 

00400 

00400 

00986 

01821 

043O1 
00000 
01381 
00481 

04331 
00000 
07536 
01381 

08425 

00100 

00102 

00 909 

00400 

00986 

01743 

04445 
00000 
07536 
00667 

08425 

00100 

00102 

00909 



o 



© 



03450 
03460 
03^+70 
03480 

03490 

03500 

03510 

03520 

03530 

03540 

03550 

03560 

03570* 

Q35.8Q*_ 

03590* 

03600* 

03610* 

03620V/CTR 

03630 

03640RFS 

03650 

Q366Q 

O367OFRMT 

03680 

Q3690 

03700 

03710 



\/ACD ALPHA 

TR ALPHA-1 ' .BLANKS -1 
TF ALPHA+22.HDNG1 1+22, 
FD DSCR.SQR 

BTFS FLTFIX.DSQR 



tf alpha+50 , output+2 
v/aty alpha 
"r'cty 

BD *+24,C0NTR2 
WACD ALPHA 

B STARTD 



Q450Q 39 01149 00400 

04512 31 01148 00986 

04524 26 01171 0176S 

04536 16 10795 04559 
04548 49 10564 00000 
04555 00005 01361 
04560 00005 00667 

04566 16 10795 O4589 
04578 4 9 10764 00000 
04585 00005 07536 
04590 00005 01361 

04596 26 01 199 08425 

04608 39 01149 00100 

04620 34 00000 00102 

04632 43 04656 00909 

04644 39 01 149 00400 

04656 48 00000 00000 

04668 49 OI85O 00000 



S UBR0UTij:iE_J0_REA D x FLOAT^AND STORE NUMBERS UNDER 
FORMAT CONTROL. NEEDS NUMBER OF WORDS AND INITIAL 
ADDRESS 'WHERE STORED. 



t)S 3 

DS 5 
TF 

TFM READN-2, READN 
TF . FRllI+l 1 » FORMAT 

TF SPEC, 99999 

SF SPEC-1 

SF SPEC-3 

B 99999, , , READN OR L00P1 



DORG 



04682 00003 

04687 00005 
TRSMT+23,RFS-1,,SET UP STORE ADDRESS . 

04688 26 05611 04687 

04700 16 04766 04768 

04712 26 04735 00501 

04724 26 05727 S9999 

04736 32 05726 00000 

04748 32 05724 00000 

04760 49 99999 00000 
04768 



03720READN 


RACD 


ALPHA 










04768 37 01 142 00500 


037 30 


TFM 


READN-2, LOOP 1 




16 04766 54304 


04780 


03740 


TF! 


ADDR .ALPHA-2 




16 05732 51147 




04792 


03750LOOP 1 


A 


ADDR.SPEC-2 


04804 








21 ,05732 05725 


03760 


A 


ADDR7SPEC-2 








04816 


21 05732 05725 


03770 


TF 


I NPUT, ZEROS 








04828 


26 05746 00895 


03730 


TF 


I NPUT-9.ZER0S-5 




26 05737 00890 






0<+840 


03790Ci iCOL 


CM 


ADDR .ALPHA+154 




14 05732 51303 




04852 


038OO 


cnl 


READN 




46 04766 01300 






04364 


03805 


CM 


SPEC-4,0, 10 




14 O5723 00000 




04876 


03807 


3E 


STEP 1 










04888 


46 05678 01200 


038 10 


TDM 


S IGN2.0 




15 05762 00000 




04900 


03820 


TF 


D 1+6, ADDR 




26 O505O 05732 




04912 


03830 


TF 


D2+11 ,D1+6~ 








04924 


26 05079 O505O 


03840 


TF 


PER+6,01+6 




26 05094 05050 




04936 


03850 


TF 


D4+6.D1+6 




26 051 1 8 Q5Q5Q 




04948 


03860 


TF 


RET+6,D1+6 




26 05038 05050 




04960 


03870 


SM 


RET+6,1, 10 




12 05038 00051 




04972 


03880 


TFM 


D2+6, 1 NPUT 




16 05074 55-746 




049§4 


03890 


TF" 


05+6", 1 NFDT " " 








04996 


16 05142 55746 


03900 


TFM 


SETFL+6, 1 NPUT+1 




16 05310 05747 




05008 


03910 


S 


SETFL+6, SPEC-2 








O502O 


22 053.10 05725 


03920RET 


SF 


99999, , .AUDP.-1 




32 99999 00000 






05032 


03930D1 


CM 


99999,70, 10 


05044 








14 99999 00070 


03940 


BL 


PER 










05056 47 05088 01300 


03950D2 


TD 


99999, 99999, , 1 NFOT , ADDR 








05068 


25 99999 99999 



03960 


B 


CHG+20 






- 


_ 


QS080 49 05 U6 00000 


03970 


DORG 




03980 PER 






05088 


CM 


99999,03, 10 ,ADDR 


03990 


BE 


CHG 


05088 14 99999 OQ003 








05100 46 05176 01200 


O4000Di* 


CM 


99999,20, 10 




04010 






05112 14 99999 00020 


BE 


f 1 1 N 


0402OD5 






05124 46 05156 01200 


TDM 


99999,0, , INPUT 









05 H6 15 ^9999 00000. 


04030 


B 


CHG+20 




Oh 040 






05 148 49 05196 00000 


DORG 


*-3 








05156 


04050M 1 N 


SF 


SI GN2 


— — _ 






. - _ 0515.6 32...Q5762 00000 


OkOoO 


B 


PER+i+8 




040/0 






05168 49 05136 00000 


DORG 


"'-3 


nil nflnrur 






05176 


An 


cctci t C 1 in 








05176 11 05J10 ooo5i 


unuyu 


B 


*+32 




Oh 100 






05188 49 05220 00000 


DORG 


*-3 








05196 


Oh 1 10 


SM 


U2+b, I , 10 










05196 12 05074 00001 


UH 1 


01 1 










01+6,2, 10 


05208 12 05142 00001 


nil i jo 

UH 1 yj 


CM 








05220 12 05050 00002 


nit idn 
UH 1 4U 




U2+ 11 , I , IU 




- --- — — 







O5232 12 05079 00002 


Oh 1 50 


SM 


PER+o, 2 , 10 








05244 12 05094 00052 


Oh 160 


SM 


D4+6, 2,10 








05256 12 051 18 00052 


Oh 170 


SM 


K h 1 + , 2 , 1 








05268 12 O5038 00052 


Oh 1 80 


Q 


uZTOf JL 1 r u 










05280 24 05074 05310 


Oh 190 


BNL 


RET 








99999,,, ( INPUT+1) 


052S2 46 05032 01300 


04200SETFL 


SF 


-(SPEC-2) 








_ _ Q53Q4 32 99999 00000 


04210"0VE 


"CM~~ 


1 NPUT.O, 10 








05316 14 05746 ooo5o 


04220 


BE 


ZEROX 








05328 46 05700 01200 


OH 230 


TF 


COMN, ZEROS 










05340 26 05756 00895 


0H240 


CF" 


COMN- 9 








05352 33 05747 00000 



OH 250 
04260 
04270 

04280 

04290 

OU30OBRNCH 
04310 ... 
04320 
04330 
04340 

04350DIGIT 
0i+ 3 60 
Ok 370 EX 
04380 
04390 

04400 . 

04410 
04420 
04430 
04440 

04450TRSMT 

04460 
04470 
04480 
04490 



.Tfl:'.. 
S 

TF 

SF 

S 

SM 
AM 
B 

DORG 

TF 

AM 

TF 

TF 

SF 

T F 

BNF 

TF 

SM 

SF 

TFLS 



..LXPNTJNPUT+T 
EXPNT.SETFL+6 
BRNCH+1 1.SETFL+6 

EXPNT-1 

EXPNT,SPEC 
DIG I T, 99939 
EXPN 1,1,10 
BRNCH+1 1 ,1,10 
BRNCH 

--■-3 ..... 

*+ 30, BRNCH+1 1 
*+l8,9, 10 

99999, EXPNT 

*+ 18, BRNCH+1 1 
99999 

TRSMT+ 28,EX +6 

*+48,SIGN2 
*+30,TRSMT+28 
-■+18,2,10 

99999 

99999,99999 



AM TRSMT+23, 10, 10 

SM WCTR.1,10 
BNP CVR2 

SM SPEC-4,1,10 



05364 

05376 

05388 

05400 

05412 

05424 

65436 

05448 

05460 

05468 

05468 

05480 

05452 

05504 

055 16 

"0552B" 

05540 

05552 

"03564" 

05576 

05588 
05600 
05607 
05612 

05618 

05630 

05642 

05654 



16 05761 55747 
22 05761 05310 
26 05435 05310 
32 "05750 00000~ 
22 05761 05727 
43 05468 99999 
12 05761 oboo"l 
1 1 05435 00051 
49 05424 00000 




44 05588 
26 05582 
T2""055B2 

32 99999 

16 10795 
49J0744 
00005 
00005 

11 O56H 

12 468 2 
47 05698 
12 05723 



05762 

05616 

000C2 

00000 

05611 
OOOOO 

99999 
99999 

000T0 

OOOOl 
01100 

00051 



o 



© 



04500 BP L00P1 

04510STEP1 AM FRMT+11,6,10 
04520 B FRMT 

04530 PJBG_*-J 

04540OVR2 DB 
04550 OORG *-9 

_0k5fiQZERQX TFM TRSMT+?8 r Z ER0 

04570 B TRSMT 

04580 DORG *-3 



0459nSPFC US 8 

04600ADDR DS 5 
04610 INPUT DS 14 

04620C0_MN DS 10^ 

04630EXPNT DS 5 
04640SIGN2 DS ... 1 

046qQPNUM DS A 

04660MCNT DS 3 

04670* •*■*.* * ■* * * 
04680- SUBROUTINE FOR PRINTING N WORDS. 

04620* J* „ * _*„ _±_ _ * * 
04 7 00 WORDS DS 3 

04710PRINT RCTY 

04720PRINT1 BTFS FLTF I X , 99999 



04730 WATY OUTPUT-20 

04740 .. .. TBTY 

04750 AM PR | NT1+28, 10,10 

04760 SM WORDS, 1,10 

04770 . CP . PRINT! 



05666 46 04804 01100 
05678 11 04735 00056 
05690 49 04724 00000 
05698 

05698 42 00000 00000 
05700 

05700 16 05616 50885 
05712 49 05588 00000 
05720 

05727 00008 
05732 00005 
05746 00014 
05756 00010 

05761 00005 

05762 00001 
05766 00004 
05769 00003 

05772 00003 

05774 34 00000 00102 

Q5786 16 10725 05802 
05798 49 10764 00000 
05805 00005 07536 
O58IO 00005 99999 

05816 39 08403 00100 

05828 34 00000 00108 

05840 11 05814 OOOTO 

05852 12 05772 00051 

05864 46 05786 01 100 



a 



04780RET1 


B 


99999 




05876 49 99999 00000 








04790 


DORG 






05884 








04800* 


* * 


* * * 


* * 


* 


04810* 


SUBROUTINE TO TRANSFORM 


DATA 


* 


04820* 


* * 


* * * 


* * 


* 


04830 


DS 


2 




05885 00002 








04840TFS 


TF 


CNT, 1 NVAR 










05886 26 07414 00420 


04850 


TF 


MV+2 3.DATA2 




05898 26 05945 0052 1 






04860 


TF 


MV+28.DATA1 




05910 26 05950 00516 






04870MV 


TFLS 


99999,99999 




05922 16 10795 05945 
05 934 4 9 10744 00000 
05941 00005 29999 
05946 00005 99999 








04880 


AM 


MV+2 3, 10, 10 




05952 11 05945 00010 






04890 


AM 


MV+28, 10, 10 




05964 11 05950 00010 






04900 


SM 


CNT, 1, 10 




05976 12 07414 00001 






04910 


BP 


MV 












05988 46 05922 01100 


04920 


TF 


CNT , NOTRAN 




06000 26 07414 00432 






04930 TRNF 


TF 


*+2 3» 1 NDEX 




060 12 2 6 60 35 0050 6 






04940 


TF 


SPEC , 99999 




06024 26 05727 99999 






04950 


SF 


SPEC-1 




060 36 32 05726 00000 








04960 


SF 


SPEC-3 










06048 32 05724 00000 


04970 


SF 


SPEC-5 












06060 32 05722 00000 


04980 


TF 


TRF+28,DATA1 




06072 26 06136 00516 






04990 


SM 


TRF+28, 10, 10 




06084 12 06136 OOOTO 






05000 


A 


TRF+27,SPEC-2 




06096 21 06135 05725 






5010TRF 


TFLS 


WORK , 99999 




06108 16 10795 G6131 
06120 49 10744 00000 
06127 00005 07424 
06132 00005 99999 






5020 


TF 


MVE+2 3» DATA 1 




06138 26 07367 00516 






5030 


SM 


MVE+23, 10, 10 




06150 12 07367 00010 







05040 


A 


MVE+22 ,SPEC-4 


061 62 


2 1 


07366 05723 


05050 


MM 


SPEC-6,5, 10 












06174 


13 


05721 00005 


05060 


TFM 


*+35,TRC0N-5 










06186 


16 


06221 07424 


050 70 


A 


*+23,99 












06198 


21 


06221 00099 


05080 


TF 


*+l8, 99999 


06210 


26 


06228 99999 


05090BRCH 


8 


99999 


06222 


49 


99999 00000 


05100 


DORG 


*-3 


06230 






051 10* 












05120* HERE ARE THE TRANSFORMATION 


SUBROUTI NES . 






05130* 












05140RETURN 


TF 


TRNF1+28.DATA2 










06230 


26 06294 00521 


05150 


SM 


TRNF1+28, 10, 10 






06294 OOOlO 




06242 


12 


05160 


A 


TRNF1+27.SPEC-2 












06254 


21 


06293 05725 


05170TRNF1 


TFLS 


WORK, 99999 






10795 06289 
10744 00000 






06266 
06278 


16 

49 








06285 


00005 07424 








06290 


00005 99999 


05180 


B 


MVE 


06296 


49 


07344 00000 


Q5I9P 


DORG 














06304 






05200CHSIGN 


BNF 


0VR1, WORK-2 










06304 


44 


06336 07422 


05210 


CF 


WORK-2 












06316 


33 


07422 00000 


Q5220 


B 


MVE 












06328 


49 


07344 00000 


05230 


DORG 


*-3 












06336 






052400VR1 


SF 


WORK-2 












06336 


32 


07422 00000 


JL525Q 


8 


MVE 


06348 


49 


07344 00000 


05260 


DORG 


*-3 


06356 






05270SCALE 


TF 


FADD+28, CONST 










06356 


26 


06420 00511 


05280 


SM 


FADD+28, 10, 10 






06420 00010 




06368 


12 


05290 


A 


FADD+27 »SP£C 












06380 


21 


06419 05727 


05300FADD 


FA 


WORK, 99999 






10795 06415 
10524 00000 






06392 
06404 


16 

49 








06411 


00005 07424 








06416 


00005 99999 



05310 


B 


MVE 


06422 


49 07344 


000 00 


05320 


DORG 


*-3 


06430 






05330 MAGN 


TF 


FMUL+28, CONST 


06430 


26 06494 


0051 1 


5340 


SM 


FMUL+28, 10, 10 


06442 


12 06494 


000T0 


5350 


A 


FMUL+27.SPEC 


06454 


21 06493 


05727 


5360FMUL 


FM 


WORK , 99999 












06466 


16 10795 


06489 








06478 


49 10544 
00005 


00000 








06485 


07424 








06490 


00005 


99999 


05370 


B 


MVE 


06496 


49 07344 


00000 


05380 


DORG 


*-3 


06504 






05390SUM 


TF 


FADD1+28.DATA 1 


06504 


26 06568 


00516 


5400 


SM 


FADD1+28, 10, 10 












06516 


12 06568 


ooolo 


05410 


A 


FADD1+27,SPEC 


06528 


21 06567 


05727 


05420FADD1 


FA 


WORK, 99999 












06540 
06552 
06559 
06564 


16 10795 
49 10524 
00005 
00005 


06563 
00000 
07424 

59999 


05430 


B 


MVE 


06570 


49 07344 


00000 


05440 


DORG 


*-3 


06578 






05450SUB 


TF 


FSUB+28,DATA1 












06578 


2 6 6642 


00516 


05460 


SM 


FSUB+28,10, 10 












06590 


12 06642 


ooolo 


05470 


A 


FSUB+27.SPEC 


06602 


21 06641 


05727 


05480FSUB 


FS 


WORK, 99999 












06614 
06626 
06633 


16 10795 
49 10504 
00005 


06637 
00000 
07424 


05490 






06638 


00005 


99999 


B 


MVE 


06644 


49 07344 


00000 


5 500 


DORG 


*-3 


06652 






05510MPY 


TF 


FMUL1+28,DATA1 












06652 


26 06716 


00516 


05520 


SM 


FMUL1+28, 10, 10 












06664 


12 06716 


000T0 


05530 


A 


FMUL1+27.SPEC 


06676 


21 06715 


05727 



n 



© 



355. 



055*tOFMUL1 


FM 


WORK OQQQQ 












06688 


16 107Q5 


0A7 1 1 
uo/ 1 1 








n A7nn 


La mcLL 

lUpHH 


ftftftftft 

uuuuu 








OA.707 

U O /U / 


onnni; 

VJvvsJ p . 


U / tin 








nA710 
UO/ 1/ 


nnnnc 
uuuup 


yyyyy 


UPPPU 


D 


nvt 














flA7 1 ft 
UO/ 1 


ny u / jhh 


nnnnn 
uuuuu 


nccAn 

UppOU 




5 












06726 






U? p/ouvut 


TP 

1 r 


r U I V+Zo, UA I A I 










nA7o a 

U O / £ O 


OA OA7QO 
& yjvf j\) 


005 16 


ft C CQn 
UppOU 




rpii vi. «n tft 
r V I V+ZO, IU , IU 












nA7 2ft 
UO/ JO 


10 ft.A7Qfl 
1 Z U O / yu 


nnnTn 
uuu 1 u 


05590 


A 
A 


r U I V+Z / , brtL 












n A7Cft 
Uo/PU 


Zl uo/oy 


nc 70 7 
up /z/ 


n c£j\r\ mil/ 
UpoOurLM V 


rU 


WftD If naaQQ 

WuKi^ r yyyyy 












n A7A0 
uo/oz 


iA imoA 
Jo 1 u / y? 


Uo/ op 








ft A77L 
UO/ /H 


La incAL 
ny 10504 


uuuuu 








06781 


ftftftft c 

UUUU? 


07424 








ft A7fiA 

Oo/oo 


ftftftftC 

UUUUp 


99999 


ft CA1D 
U Pol U 


D 
D 


MUF 

nvt 














uo/ yz 


LQ n7 2LL 
h y u / pHH 


uuuuu 


n cAon 

U POZU 


nft.Br: 


*— a 














ft Aftnn 

uoouu 






ft C A oftD r DD 


i r Lo 


TFMP1 DKIF 






06823 






06800 


1A 107q5 

10 IU / J? 








n Aft 19 

U OO 1 Z 


Lq 107LL 
h y 1 u / *t*+ 


nnnnn 


. . .- ._ 






nAftiQ 

u 00 1 j 


00005 


fin Ao 7 

UU DZ / 








ft Aft Ok 


nnnn<5 


finan^ 
uuyup 


n^ALn 

U POHU 


FD 


TEMPI WORK 














06830 


1A 107 Q<i 
10 1 u / yp 


U OOP p 








nAftLo 


Lq in^AL 

Hy fUPOH 


nnnnn 
uuuuu 








ft ARLO 

u oony 


UUUUP 


finAo7 
uuoz / 








nAft^L 


nnnnA 
uuuup 


fi7L0L 
U / HZH 


Q565Q 


tfi c; 
I r i.^ 


WORK, TEMPI 












n Aft An 


1A 10705 
10 1 u / pv 


56883 


- . 






U OO / £ 


LQ 1D7LL 
h y 1 u / hh 


nnn nn 

UUU UU 








n Aft7Q 

u OO / J 


nnnn<; 

\Jv\J\j p 


ft"7LoL 

U / HZH 








nAftftL 

U OOOH 


nnnriA' 

UUUVJ? 


finA97 
uuoz / 


n CAAn 
u poou 


D 
D 


MUF 

nvt 














uooyu 


Lq n7iLL 
**y u / phh 


nnnnn 
uuuuu 


ft CZ^ft 

upo/OL 


ft AD r 














O6898 






05 680 POWER 


TF 


AA+28, CONST 










O6898 


26 06992 


00511 


5690 


SM 


AA+28,10,T0 










06910 


12 06992 


ooolo 


05700 


A 


AA+27.SPEC 










06922 


21 06991 


05727 


05710 


FLN 


WORK, WORK 












06934 


16 10795 


06957 








06946 


49 10724 


00000 








06953 


00005 


07424 








06958 


00005 


07424 



356. 



05720AA 

05730 

05740 
05750 
05760 LN 

05770 

05780 
05 7 90 LOG 

05800 
05810 
05820EXN 

05830 
05840 
05850EXT 

05860 



FM WORK, 99999 

FEX WORK, WORK 

B MVE 
D0RG *-3 
FLN WORK, WORK 

B MVE 

D0RG *-3 

FLOG WORK, WORK 

B MVE 
D0RG *-3 
FEX WORK, WORK 

B MVE 
D0RG *-3 
FEXT W0RK,W0RK 

B MVE 



06964 16 10795 06987 
06976 49 10544 00000 
06983 00005 07424 
06988 00005 99999 

06994 16 10795 07017 
07006 49 10684 00000 
07013 00005 07424 
07018 00005 07424 

07024 49 07344 00000 

07032 

07032 16 10795 07055 
07044 49 10724 00000 
07051 00005 07424 
07056 00005 07424 

07062 49 07344 00000 

07070 

07070 16 10795 07093 
07082 49 10704 00000 
07089 00005 07424 
07094 00005 07424 

07100 49 07344 00000 

07108 

07108 16 10795 07131 
07120 49 10684 00000 
07127 00005 57424 
07132 00005 07424 

07138 49 07344 00000 

07146 

07146 16 10795 07 169 
07158 49 10664 00000 
07165 00005 07424 
07170 00005 0*7424 

07176 49 07344 000000 



05870 


DORG 


*-3 


5 880SI N 


FSI N 


WORK, WORK 


0S890 


B 


MVE 


05900 


DORG 


*-3 


05910C0S 


FCOS 


WORK, WORK 


5920 


B 


MVE 


059 30 


DORG 




O594OARCTAN 


FATN 


WORK, WORK 


05950 


B 


MVE 


O596O 


DORG 


*— 3 


05970SQRT 


FSQR 


WORK, WORK 


05980 


B 


MVE 


_ 0599Q 


DORG 


*-3 


06000 DUMMY 


B 


99999 


06010 


DORG 


*-3 


O6Q20MVE 


TFLS 


99999.W0RK 


060 30 


AM 


TRNF+23,8, 


06040 


SM 


CNT ,1,10 


06050 


BP 


TRNF+12 



6060 



07184 

07 184 16 10795 07207 
07196 49 10624 00000 
07203 00005 07424 
07208 00005 07424 

07214 49 07344 00000 
07222 

07222 16 10795 07245 
072 34 49 10604 00000 
07241 00005 07424 
07246 00005 07424 

07252 49 07344 00000 

072*0 

07260 16 10795 07283 
07272 49 10644 00000 
07279 OOOOS 07424 
07284 00005 07424 

07290 49 07344 00000 

07298 

07298 16 10795 07321 
07310 49 10584 00000 
07317 00005 07424 
07322 00005 07424 

07328 49 07344 00000 
07336 

07336 49 99999 00000 
07344 

07344 16 10795 07367 

07356 49 10744 00000 

07363 00005 99999 

07368 00005 07424 

07374 11 060 35 00008 

07386 12 07414 00001 

07398 46 06024 01100 

07410 42 00000 00000 



358 



06070 
06080CNT 
060 90 WORK 



DORG *-9 
DS 3 
DS 10 



07412 

07414 00003 



0*110 



07424 00010 

06100TRC0N DSA MVE ,RF TURN , CHS i GN, SCALE , MAG N, SUM , SUB ,MPY , DVDE ,RCPR 

07429 00005 07344 
07434 00005 
07439 00005 
07444 00005 
07449 00005 
07454 00005 
074^9 00005 
07464 00005 
07469 00005 
07474 00005 

DSA POWER, LN, LOG, EXN, EXT, SI N, COS, ARCTAN, SORT, DUMMY 

07479 00005 O6898 
07484 00005 
074«9 00005 
07494 00005 
07499 00005 
07504 00005 
07509 00005 
07514 00005 
07519 00005 
07524 00005 

uouu- „*********** 
06130* SUBROUTINE FOR PREPARING DATA FOR ALPHAMER I CAL PRINTING OR 
06140* PUNCHING. INTERNAL FORMAT IS SPSII. 

O6156* ************ 



062 30 
063O4 
06356 
06430 
06504 
06578 
06652 
06726 
0*800 



070 32 
07070 
07 108 
07146 
07184 
07222 
07260 
07298 
07 336 



06120* 



0*160 


DS 


10 


07534 00010 


06170FLTFIX 


CF 


ARG-9 


07536 33 07526 00000 


O618OARG 


DS 


.FLTFIX-1 


07535 00000 


06190 


TF 


OUTPUT, SEVENS 


07548 26 08423 08435 


06200 


CF 


OUTPUT-9 


07560 33 08414 00000 


06210 


TF 


OUTPUT-IO.DCMAL 


07572 26 08413 08445 


06220 


TFM 


OUTPUT-19,0,9 


07584 16 08404 OOOOO 


062 30 


TFM 


SIGN, 0, 10 


07596 16 08447 OOOOO 


.06240 


BNF 


JUMP,ARG-2 


07608 44 07644 0753* 


062 50 


TDM 


SI GN— 1,2, 1 1 


07620 15 08446 00002 


6260 


CF 


ARG-2 


07632 33 075 33 OOOOO 


06270JUMP 


CM 


ARG.99, 101 1 


07644 14 07535 00091 


06280 


BE 


WRALPH 


O7656 46 07980 01200 



06290 CM 

06300 BNP 

06310 CM 

CI 6320 BH 

06330 TFM 

06340 TFM 

06350 S 

06360 S 
06370TRNMT TD 

06380 AM 

0639 AM 

06400 CM 

J) 6410 BNH 

06420 TF 

06430 TFM 

06440 S 

..Q645Q TFM 

06460 S 

06470 S 

06480 A 
06490WRITE TFM 

.06500 TD 

J365-1Q AM 

06520 AM 

06530 CM 

-Q654Q BNH 
06550WRALPH BD 

06560 B 

06570 DORG 
06580SETZR0 TDM 



ARG,0,10 
DECIML 

ARG.4,10 
LARGE 

TRNMT+1 1 ,ARG-9 

*+42, OUTPUT- 10 

*+30,ARG 

*+l8,ARG 

99999,99999 

TRNMT+1 1,1, 10 

TRNMT+6,2,10 

TRNMT+6,0UTPUT-12 

TRNMT 

WRI TE+23.TRNMT+11 

EXPNT2,5,10 

EXPNT2,ARG 

*+47, SEVENS 

*+35,EXPNT2 

*+23,EXPNT2 

0UTPUT-12, 99999 

*+l8,0UTPUT-8 

OUTPUT-8,0 

WRI TE+23, 1,10 

WRITE+18,2,10 

WRI TE+ 18, OUTPUT 

WRITE+12 

SETZR0.0UTPUT-18 

SETS I G 

*-3 

OUTPUT, 



07668 14 
07680 47 
07692 14 
07704 46 
07716 16 
07728 16 
07740 22 
07752 22 
07764 25 
07776 11 
07788 11 
07800 14 
07812 47 
07824 26 
07836 16 
07848 22 
O786O 16 
07872 22 
07884 22 
07896 21 
07908 16 
07920 25 
07932 11 
07944 11 
07956 14 
07968 47 
079*0 43 
07992 49 
08000 
08000 15 



07535 OOOOO 
08026 01100 
075^ 00004 
08106 01100 
07775 07526 
07770 08413 
07770 07535 
07770 07535 
99999 99999 
07775 00001 
07770 00002 
07770 08411 
07764 01100 
07931 07775 
08449 00005 
08449 07535 
07907 08435 
07907 08449 
07907 08449 
08411 99999 
07926 08415 
08415 00000 
07931 00001 
07926 00002 
07926 08423 
07920 01100 
08000 08405 
08312 00000 

0842 3 00000 



06590 


TF 


06600 


BB 


06610 


DORG 


06620DECIML 


CM 


06630 


BNH 


06640 


TFM 


06650 


TFM 


06660 


S 


06670 


S 


06680 


B 


06690 


DORG 


6700 LARGE 


TF 


06710 


BNF 


06720 


TFM 


06730 


CF 


06740 


CF 


06750JUMP2 


TD 


06760 


TD 


06770 


CF 


067 80 


TF 


06790 


CF 


06800 


TFM 


06810 


TFM 


06820WR 


TD 


068 30 


AM 


06840 


AM 


O685O 


CM 


06860 


BNH 


06870 


BB 



0UTPUT-20.SIGN 
*-9 

ARG,4,1011 

LARGE 

WRI TE+23, ARG-9 

WR I TE+ 1 8 , 0UTPUT-8 

WRITE+18,ARG 

WRITE+18,ARG 

WRITE+12 

*-3 

0UTPUT-17,SEVENS-7 
JUMP2,ARG 
OUTPUT-20,20,10 
ARG 

0UTPUT-19 
0UTPUT-16,ARG 

0UTPUT-18,ARG-1 

0UTPUT-18 

0UTPUT-12.SIGN 

0UTPUT-13 

WR+11, ARG-9 

WR+6,0UTPUT-8 

99999,99999 

WR+11, 1,10 

WR+6,2,10 

WR+6, OUTPUT 

WR 



08012 26 08403 08447 
08024 42 OOOOo 00000 
08026 

08026 14 07535 0000? 
080 38 47 08106 01100 
08050 16 07931 07526 
08062 16 07926 08415 
08074 22 07926 07535 
08086 22 07926 07535 
08098 49 07920 OOOOO 
08106 

08106 26 08406 08428 
08118 44 08166 07535 
08130 16 08403 00070 
08142 33 07535 OOOOO 
08 154 33 08404 OOOOO 
08166 25 08407 07535 
08178 25 08405 07534 
08190 33 08405 OOOOO 
08202 26 08411 08447 
08214 33 08410 OOOOO 
08226 16 08261 07526 
08238 16 08256 08415 
08250 25 99999 99999 
08262 11 08261 00001 
08274 11 08256 00002 
08286 14 08256 08421 
08298 47 08250 01100 
08310 42 OOOOO OOOOO 



361. 



06880 


DORG 


*— 9 


06890SETSIG 


TFM 


SETS+11.0UTPUT-16 


06900SETS 


BD 


SET.OUTPUT-16 


06910 


AM 


SETS+11,2,10 


06920 


B 


SETS 


06930 


DORG 


*-3 


06340SET 


TF 


*+30,SETS+11 


06950 


SM 


*+l8,2, 10 


06960 


TF 


99999, SIGN 


Q627P_ 


BB 




Q698O 


DORG 


*-9 


06990 


DAS 


14 


Q700QOUTPUT 


DS 


2 


070 10 


DAC 


1," 


07Q2QS EVENS 


DC 


10,7070707070 


JQ3QDCMAL DC 


10,0000000003 


0_7Q4QS|GN 


DS 


2 


0_7Q5QEXPNT2 


DS 


2 



O7O6P* 
07070* 
07080* 
07090FF 


* * 

SUBROUTI 

* * 

TF 


***** 

NE FOR READING FIN AND FOUT. 
***** 

RF1+6, FORMAT 


07100 


SM 


RFI+6,5,10 


07T10 


TFM 


RF2+11.78, 10 


07120 


TFM 


RF3+11,13,10 


07130 


TFM 


RF5+1 1,6, 10 


07140 


BTM 


RF.2,10 


07150* 
07 160* 
07170 


READ .FLOAT AND STORE FIN AND FOUT 
TFM WCTR.2,10 


07180 


BTM 


RFS.FIN 



08312 

08312 16 08335 08407 
08324 43 08356 08407 
08336 11 08335 00052 
08348 49 08324 00000 
08356 

08356 26 08386 08335 
O8368 12 O8386 00002 
08380 26 99999 08447 
08392 42 00000 00000 
08394 

08395 00014 
0842 3 00002 
08425 00001 
08435 00010 
08445 00010 
08447 00002 

08449 00002 

* * 
* 

* * 

08450 2b O8588 00501 
08462 12 O8588 000G5 
08474 16 08605 00078 
08486 16 08617 000T3 
08498 16 08665 00006 
O85IO 17 O8558 00007 

08522 16 04682 00002 
08534 17 04688 00697 



© 



o 



362. 



07190RET7 

07200 

07210* 
07220* 
072 30* 
07240* 
07250 

07260RF 

07270 

07280RF1 

07290RF2 

07300RF3 

07310 

07320 

07330RF4 

7 340RF5 

07350 

07 360 

07370 

07 38O 

07390* 
07400* 
07410* 
07420 

07430C0NV 

07440 

07450 

07460 

07470TESTD BD 
07480 AM 



B 99999 
DORG *-3 



08546 49 99999 00000 
08554 



SUBROUTINE TO READ AND FLAG FORMATS , TRANSFORMATION INDEXES, 
AND IDD, INDEXES OF DEPENDENT VARIABLES FOR ADV. 



DS 3 

TF CNTR.RF-1 
TF RFl++6,RF1+6 
RNCD 99999 
AM RF1+6, 99999 
SM CNTR, 99999 
RF1 

CNTR ,RF-1 

99999 

RF4+6, 99999 
CNTR, 1, 10 
RF4 



BP 
TF 
SF 
AM 
SM 
BP 



DORG *-9 

***** 

SUBROUTINE TO FLOAT NOBS . 
***** 

DS 5 

TFM EXP3.5.10 
TFM TESTD+11 ,C0NV-5 
TFM MVWRD+6.0BSER-5 
TF OBSER, ZEROS 
SETM, 99999 
TESTD+11 , 1 , 10 



07490 



SM 



EXP3, 1, 10 



O8556 00003 
O8558 26 00589 08557 
08570 26 08648 O8588 
08582 36 99999 00500 
08594 11 O8588 99999 
08606 12 OO589 99999 
08618 46 O8582 01 100 
08630 26 OO589 O8557 
08642 n 99999 00000 
08654 11 08648 59999 
08666 12 00589 00001 
08678 46 08642 01 100 
08690 42 00000 00000 
08692 

08696 00005 
O8698 16 08853 00005 
08710 16 08757 08693 
08722 16 08832 00476 
08734 26 00481 00895 
08746 43 08802 99999 
08758 11 08757 00001 
08770 12 08853 00001 




36 



0Z500 


SM 


MVWRD+6, 1 , 10 








07510 


6 




08782 


12 08832 


00001 


TESTD 








0879** 


49 08746 


00000 


07520 


DORG 


*-3 


08802 




Q753QSEJM 


TF 


*+l8,TESTD+11 














08802 


26 08820 


08757 
00000 


07540 


SF 


99999 


08814 


32 99999 


07550MVWRD 


TF 


99999, CONV-1 








07560 






08826 


26 99999 


08697 


TF 


0BSER.EXP3 












088 38 


26 00481 


08853 


07570 


BB 








075^ 






O885O 
08852 


42 00000 


00000 


DORG 


*-9 








DS 


2 














08853 


00002 




07600 


DS 


4 












08857 


00004 




Q761QWRNUM 


TF 


OUT, NO 






_ -117620 NO 






08858 


26 00817 
00000 


08857 


DS 


,WRNUM-1 


08857 


07630 


CF 


OUT-1 


08870 


33 00816 


00000 


07640 


WNTY 


OUT-1 














08882 


38 00816 
42 00000 


00100 


07650 


BB 




08894 


00000 


07660 


DORG 


*_g 


08896 






07670START 


RNCO 


CONT 














O8896 


36 00402 


00500 

00000 


—07680-. 


SF 


DATE -5 


08908 


32 00402 


07690 


SF 


DATE-3 


08920 


32 00404 


00000 


07700 - 


SF 


DATE-1 


08932 


32 00406 


00000 


077 in 


SF 


PROB-1 


08944 


32 00408 


00000 


.._a7720 


SF 


NOBS-4 


08956 


32 00410 


00000 


-07730 


SF 


NFORM-2 


08968 


32 00415 


00000 


..-07740 - 


SF 


1 NVAR-2 


08980 


32 00418 


00000 


07750 


SF 


N0VAR-2 


08992 


32 00421 


00000 


07760 


SF 


N-2 


09004 


32 00424 


00000 



364. 



07770 
07780 

07790 

_078QO- 

07810 

07820 

O783Q* 
07840* 
Q785Q* 
O786OCADD 

07870 

07880 

07890 

679OO 

07910 

67920 

07930 

6797O 

07980 

07990 

08000 CAD D 1 

08010 

0R020 

O803O 

08040 

08050 

~0 80 60 INC 

080 70 

08080 



SF 


NDEP-2 








09016 32 00427 00000 


SF 


N0TRAN-2 








09028 32 00430 00000 


SF 


N0C0N-2 








nqfilif) 3? Of)ii?a Ofinnn 

w *Tw WWfJJ UwwW 


SF 


NCOL-1 








nan co ao nniiiC nntv\i\ 
U^UpZ it UUHJO UUUUU 


SF 


NELIM-2 








uyut>*+ 32 uuh 30 uuuuu 


TFM 


CMC0L+11.ALPHA+152 


09070 lb OH007 01301 




:0MPUTE ADDRESSES FOR DATA 


riri nC 
r 1 L LUo . 


TFM 


IND.REF 


09088 16 00486 T7500 




TF 


TEMPI , 1 ND 


no inn 9 a noA?7 nnbRA 




AM 


TEMPI, 80, 10 






OQ112 11 00627 OOOBO 

Mfc II WW W& f WWW WW 


CM 


N, 80,10 


09124 14 00426 OOOBO 

W^ Ifc"T 1 ~ WW^&W WWW 




BNP 


*+24 








OQ13A li7 0Q1&O 01100 
w 7 1 H / sjy t ww U| I ww 


AM 


TEMP 1,80, 10 


OQIiifi 11 00 A? 7 000 BO 

W^/1*TW | 1 WVw£f WWW WW 




AM 


TEMPI, 1,10 


O Q 1 AO 11 OO 62 7 OOO fi 1 

U^l WW I 1 WW / WWW W 1 




TF 


ID, TEMPI 








09172 26 00491 00627 


A 


TEMPI ,N 






naiftii ) t nnA07 nnkoA 


A 


TEMP 1,N 






naiQi 0] nn&9 7 nnli?A 


TF 


IDD, TEMPI 






09208 26 00496 00627 


A 


TEMPI ,N 






09220 21 00627 00426 


A 


TEMP1.N 






09232 21 00627 00426 


AM 


TEMP 1,4, 10 


nQ9kU 11 00627 000Q4 




TF 


FORMAT, TEMPI 








09256 26 00501 00627 


TF 


TEMP2.NF0RM 






09268 26 00637 00417 


TFM 


CTR.0,10 


09280 16 00592 OOODO 




AM 


CTR , 1 , 10 


09292 11 00592 OOOOl 




SM 


TEMP2.13.10 


09304 12 00637 000T3 




BP 


INC 








09316 46 09292 01100 



080 90 

08100 

08110 

08120 

08130 

08140 

081501 NC2 

08160 

08170 

08180 

08190 

08200 

08210 

08220 

08230 

08240"" 

08250 

08260CADD2 

cT82 70 

08280 

08290 

08300 

08310 

08450 

08460 



MM 


CTR, 78, 10 


A 


TEMPI ,99 


AM 


TEMPI, 4, 10 


TF 


INDEX, TEMPI 


TF 


TEMP2, NOTRAN 


TFM 


CTR.O, 10 


AM 


CTR, 1, 10 


SM 


TEMP2, 10, 10 


BP 


INC2 


MM 


CTR, 80, 10 


A 


TEMP 1,99 


AM 


TEMP 1,2, 10 


TF 


CONST, TEMPI 


A 


TEMP 1-1 ,N0C0N 


TF 


DATA 1 , TEMP 1 


A 


TEMP 1-1, NOVAR 


TF 


DA TA2, TEMPI 


A 


TEMP1-1, INVAR 


TF 


B, TEMPI 


A 


TEMP 1-1 , N 


TF 


SE .TEMPI 


A 


TEMP1-1,N 


TF 


T, TEMPI 


TFLS 


Fl N,ZER0 


TFLS 


FOUT.ZERO 



n q 39 f? 


1 2 


nn c 09 
uuby«c 


nnn7R 
uuu 1 


n q i ii n 


9 1 


nn £9 7 
uuoz / 


nn nn a 
uuuy y 


09352 


1 1 


00627 


00004 


09364 


9 c 
lb 


00506 


00627 


uy;> /d 


9 £ 
i. 


nn A 27 


nn )i 29 


uyjoo 


1 A. 
1 O 


nn cq9 
uu pyz 


nnnfin 
uuuuu 


u y*tuu 


1 1 

1 1 


nn c Q9 
uu pyz 


nnnn" 1 
uuu U 1 


U 1 i- 


1 9 


nn A 27 


nnnfn 
uuu 1 u 




L.A 


naLnn 
u ynuu 


nil nn 
u 1 1 uu 


n aii 2A 


1 3 


nn c Q9 
uu pyz 


nnnRn 
uuu ou 


UyHHO 


9 1 
L 1 


nn A97 
uu \>l / 


nnn qq 
uuu y y 




1 1 

1 1 


nn £.9 7 
UU OZ / 


nn nfi 9 
uuuuz 


noii 79 


9 A. 
ZD 


nn c 1 1 
uui> 1 1 


nn £.9 7 
UUoZ / 


UyHOH 


9 1 


nn £9 ^ 
UU 0/0 


nn L 2c 
UU1 .55 


uyty o 


9 A 


005 16 


00627 


uy ^uo 


9 1 


nn A 9 A 


nnL.9 2 




9 A 


no 1 

uu pz • 


UU U£ / 


09532 


21 


00626 


00420 


09544 


26 


00526 


00 62 7 


09556 


21 


00626 


00426 


09568 


26 


00531 


00627 


09580 


21 


00626 


00426 


09592 


26 


00536 


00 627 


09604 
09616 
09623 
09628 


16 10795 
49 10744 
00005 
00005 


09627 
00000 
00697 
00885 


09634 


16 


10795 


09657 



o 



08470 



8480* 
08490* 
O85OO* 
08510 

08520* 
08530* 
08540* 
08550 

O856O 

08570RI ND 

O858O 

085 90 

08600 

08610 

08620RIDD 

08630 

08640 

08650 

08660 

08670 

08680* 
08690* 
08700* 
08710CMPR 

08720 

08730* 
08740* IS 
08750* 
08 76O 



TFLS F.ZER0 



00000 
00707 
00 885 

09687 
00000 
00687 
00885 



09646 49 10744 
09653 00005 
09658 00C05 

09664 16 10795 
09676 49 10744 
09683 00005 
09688 00005 

IS ADV USED. 
BD RIDD,C0N3 

READ I ND CARD(S) . 
TF COUNT, N 
TF *+l8,IND 
RNCD 99999 
SM COUNT, 80, 10 
BP RIND 
B CMPR 
D0RG *-3 
TF RF1+6, IDD 
SM RFI+6,1,10 
TFM RF2+11,ft0,10 
TFM RF3+11,40,10 
TFM RF5+1 1 ,2, 10 
BT RF.NDEP 

IS THE NUMBER OF TRANSFORMATION CONSTANTS = ZERO. 
CM N0C0N,0,10 

09846 14 00435 00000 

BP RDC0N 

09858 46 09902 01 100 

THE NUMBER OF TRANSFORMAT I 0NS= ZERO. 
CM NOTRAN, 0,10 

09870 14 00432 00000 



09694 


43 


09774 


00443 


09706 


26 


00586 


00426 


09718 


26 


09736 


00486 


09730 


36 


99999 


00500 


09742 


12 


OO586 


00080 


09754 


46 


09730 


01 100 


09766 


49 


09846 


00000 


09774 








09774 


26 


O8588 


00496 


09786 


12 


O8588 


00001 


09798 


16 


08605 


000B0 


09810 


16 


08617 


00050 


09822 


16 


08665 


00002 


09834 


27 


08558 


00429 



o 



-08Z7Q 
08780 
08790 



BP RDTRAN 
B CMPF 
DORG *-l 



08800* 
08810* 
08820* 

0883ORDC0N TF 



08840 

"08850 

08860 

08870 

"08880 ' 

"08890* 
-08900* 
08910* 
08920 

08930- 



09*82 46 09998 01100 
09894 49 10070 00000 
09902 

READ FORMATS FOR TRANSFORMATION CONSTANTS, ONE CARD. 
RF 1+6, FORMAT 
SM RFI+6,5,10 
TFM RF2+11,78,10 
TFM RF3+1 1 , 13, 10 
TFM RF 5+1 1,6, 10 
BTM RF.13,10 



09902 26 O8588 00501 
09914 12 O8588 00005 
09926 16 08605 00078 
09938 16 08617 000T3 
09950 16 08665 00006 
09962 17 08558 000T3 
READ, FLOAT AND STORE TRANSFORMATION CONSTANTS. 
TF WCTR.NOCON 



BT RFS, CONST 



_O8940* 
08950* 
08960* 

08970RDTRAN TF 



READ TRANSFORMATION INDEXES, 

RF 1+6, INDEX 

08980 SM RFI+6,7,10 

08990 TFM RF2+11,80,10 

09000 TFM RFI+11,10,10 

09010 TFM RF5+11.8.10 

09020 BT RF.NOTRAN 

090 30* 
0^9040* 

09050* ARE FIN AND FOUT READ. 
09060* 

09070CMPF BD *+20,C0N4 

09080 B RDFORM 

09090 DORG *-3 

09100 TFM RET7+6, RDFORM 



09974 


26 


04682 00435 


09986 


27 


04688 00511 


09998 


26 


O8588 00506 


10010 


12 


O8588 00007 


10022 


16 


08605 00080 


10034 


16 


08617 OOOTO 


10046 


16 


08665 00008 


10058 


27 


08558 00432 


10070 


43 


10090 00444 


10082 


49 


10110 00000 


10090 






10090 


16 


08552 T0 110 



368. 



09110 
09120 



B FF 
DORG *-3 



READ FORMATS FOR DATA. 



09130* 
09140* 
Q9150* 

09160RDF0RM TF RF 1+6, FORMAT 



09170 

09180 

09190 

09200 

09210 

09220* 
09230* 
09240* 
09250WGTS 

.09260 



SM RF1+6,5.10 

TFM RF2+11,78,10 

TFM RF3+1 1 , 13. 10 

TFM RF5+11,6,10 

BT RF.NFORM 

SET UP ADDRESS OF WEIGHTS. 

TF WT.DATA1 

A WT-1.N 



092 7Q* 

09280* SET UP NUMBER OF CARD COLUMNS TO READ. 
09290* 

09300 CM NC0L,0,10 

09310 
09320 
09330 
09340 



09350* 
09360* 
09370* 
09380FLT 

O9690PRH 

09700 

09710 

09720 

09730 

09740 

09750 



BE FLT 

TFM CMCOL+ 11, ALPHA 

A CMCOL+11 ,NC0L 

A CMCOL+1 1 ,NCOL 

FLOAT NUMBER OF OBSERVATIONS. 
BT CONV,NOBS 
RCTY 

BT WRNUM,DATE-4 
SPTY 

BT WRNUM,DATE-2 
SPTY 

BT WRNUM.DATE 
RCTY 



10102 


49 


08450 00000 


10110 






10110 


26 


08588 00501 


10122 


12 


08588 00005 


10134 


16 


08605 00078 


10146 


16 


08617 000T3 


10158 


16 


08665 00006 


in 1 7n 

IU 1 /u 


i-l 




10182 


26 


00556 00516 


10194 


21 


00555 00426 


10206 


14 


00437 000 00 


10218 


46 


10266 01200 


10230 


16 


04887 01149 


10242 


21 


04887 00437 


10254 


21 


04887 00437 


10266 


27 


O8698 00414 


10278 


34 


00000 00102 


10290 


27 


O8858 00403 


10302 


34 


00000 00101 


10314 


27 


O8858 00405 


10326 


34 


00000 00101 


10338 


27 


O8858 00407 


10350 


34 


00000 00102 



9760 


WATY 


PRBL 


09770 


BT 


WRNUM.PR 


9780 


TBTY 




Q9790 


BT 


WRNUM, N 


09800 


WATY 


VRBL 


09810 


TBTY 




9820 


TF 


OUT, NOBS 


09830 


CF 


0UT-4 


09840 


WNTY 


OUT-4 


09850 


WATY 


OBSR 


9860 


RCTY 




09870RET2 


B 


99999 


9880 


DORG 


*-3 


9885 


DAC 


1,0 


09890 


DEND 


STARTD 


LOAD SUBROUTINES 





10362 39 

10374 27 

10386 34 

10398 27 

10410 39 

10422 34 

10434 26 

10446 33 

10458 38 

10470 39 

10482 34 

10494 49 
10502 



0082 1 
08858 
00000 
O8858 
00833 
00000 

00817 
00813 
00813 
00843 
00000 
99999 



00100 
00409 
00108 
00426 
00100 
00108 
00414 
00000 
00100 
00100 
00102 
00000 



10503 00001 



01850 

10504 16 
10516 49 
10524 16 
10536 49 
10544 16 
10556 49 
10564 16 
10576 49 
10584 16 
10596 49 
10604 16 
10616 49 
10624 16 
10636 49 
10644 16 
10656 49 
10664 16 
10676 49 
10684 16 
10696 49 
10704 16 
W716 49 
10724 16 
10736 49 
10744 16 
10756 49 
10764 16 
10776 49 



11 198 
10784 
11 198 
10784 
11198 
10784 
11 198 
10784 
11198 
10888 
11 198 
10888 
11 198 
10888 
11 198 
10888 
11198 
10888 
1 1 198 
10888 
1 1 198 
10888 
1 1 198 
10888 
1 1 198 
10888 
1 1 198 
10888 



T1844 


T1888 


T2388 


T2628 


T2964 


T3544 


T3576 


T4388 


T5378 


T5398 


T6118 



T6138 



T696O 


T6992 





LOAD SUBROUTIN 
END OF PASS! I 
17500 REF 
00417 NFORM 
00432 *N0TRAN 
00442 COM2 



ES 



00447 
00452 
00457 
00496 
00521 
00546 
00571 
00592 
00 607 
00637 
00687 
00737 
00865 
00906 



C0N7 
C0N12 
CON 17 
I DD 
DATA2 
S I GMA 
ADIJ 
CTR 
Q 

TEMP2 
F 

VE 

FP001 
CONTR 



00987 *BLANKS 
01351 SAVE 
00 746 NO IN 
01504 EXCHG 
01747 *HDNG 1 1 
01874 ALPH 



02800 
030 38 
03414 
04724 
05044 
05156 
05468 
05 700 
05761 
05774 
06012 



PRED1 

PRED6 

PRED8 

FRMT 

D1 

Ml N 

DIGIT 

ZEROX 

EXPNT 

PR I NT 

TRNF 



06304 *CHSIGN 



00402 
00420 
00435 
00443 
00448 
0045 3 
00458 
00501 
00526 
00551 
00576 
00595 
0061 1 
00647 
00697 
00817 
00875 
00907 
01 149 
01361 
00767 
01564 
01773 
02070 
02832 
03154 
03924 
04768 
05068 
05176 
05492 
05727 
05762 
05786 
06108 
06336 



CONT 


00407 


DATE 


00409 


PR OB 


004 14 


NOBS 


1 NVAR 


0042 3 


NOVAR 


0042 6 


N 


00429 


NDEP 


NOCON 


00437 


NCOL 


00440 


NELI M 


00441 


CON 1 


C0N3 


00444 


C0N4 


00445 


C0N5 


00446 


C0N6 


CON 8 


00449 


C0N9 


00450 


CON 10 


0045 1 


CON 1 1 


CON 13 


00454 


CON 14 


00455 


C0N15 


00456 


CON 16 


C0N18 


00481 


OBSER 


00486 


1 ND 


00491 


1 D 


*F0RMAT 


00506 


1 NDEX 


0051 1 


CONST 


005 16 


DATA 1 


B 


00531 


SE 


00536 


T 


00541 


SUM 1 


R 


00556 


WT 


00561 


ADKK 


00566 


ADRNS 


ADR 1 J 


00581 


SI GN3 


00586 


COUNT 


00589 


CNTR 


1 


00598 


J 


00 60 1 


K 


604 


P 


MSZ 


00614 


1 VE 


00 617 


! VP 


00 627 


TEMP 1 


EY 


00657 


RSQR 


00 667 


SQR 


OO67 7 


DF 


F1 N 


00707 


FOUT 


00717 


H 1 GH 


00727 


VP 


OUT 


00821 


PRBL 


00833 


VRBL 


00843 


OB SR 


FHI GH 


00885 


ZERO 


00895 


ZEROS 


00 905 


ONE 


*CONTR 1 


00 909 


*C0NTR2 


0091 1 


*C0NTR3 


00 9 1 3 


nu td 1 


ALPHA 


01321 


W0RK2 


013^1 


PRED 


1 34 1 


RES 


DSQR 


01371 


*SUMRES 


1 38 1 


SUMAB 


0074 3 




AO 


01388 


RD 


01424 


RD 1 


1480 


S UBR 


BRNF 


01639 


HDNG8 


167 1 


HDNG9 


1 72 1 


*HiJNb 1L 


*wn wr 1 1 
nu iNu 1 /. 


01799 


*HDNG 13 


n 1 ft? 


*h'DNG 14 


1 850 


*S TAR Til 


RNC 


02538 


LOOP 


02618 


TRD 


02710 


CALC 


PRED2 


02876 


PRED3 


02906 


PRED4 


02978 


PRE 05 


EX 1 


3252 


EX2 


03276 


EX 3 


03378 


PRED7 


PRED9 


03978 *PRED10 


04682 


WC TR 


04688 


RFS 


READN 


04804 


L00P1 


04876 


CMCOL 


050 32 


RET 


D2 


05088 


PER 


051 12 


D4 


05136 


D5 


CHG 


05304 


SETFL 


05316 


MOVE 


05424 


8RNCI- 


EX 


05588 


TRSMT 


05678 


STEP 1 


05698 


0VR2 


SPEC 


05732 


ADDR 


05746 


1 NPUT 


05756 


COMN 


S1GN2 


05766 


PNUM 


05769 


MCNT 


05772 


WORDS 


* PR 1 NT 1 


05876 


RET 1 


05886 


TFS 


05922 


MV 


TRF 


06222 


BRCH 


06230 


*RETURN 


06266 


TRNF 


0VR1 


06356 


SCALE 


06392 


f ADD 


06430 


MAGN 




06466 


FMUL 


06504 


SUM 


06540 


FADD1 


06578 


SUB 


06614 


66652 


MPY 


06688 


FMUL1 


06726 


DVDE 


06762 


FDI V 


06800 


06898 


POWER 


06964 


AA 


07032 


LN 


07070 


LOG 


07108 


07146 


EXT 


07184 


SIN 


07222 


COS 


07260 *ARCTAN 


07298 


07336 


DUMMY 


07344 


MVE 


07414 


CNT 


07424 


WORK 


07429 


07536 


*FLTFIX 


07535 


ARG 


07644 


JUMP 


07764 


TRNMT 


07 908 


07980 *WRALPH 


08000 


*SETZR0 


08026 


*DECI MI- 


08106 


LARGE 


08166 


08250 


WR 


08312 


*SETSIG 


08324 


SETS 


08356 


SET 


08423 


Q8435 *SEVENS 


08445 


DCMAL 


08447 


SIGN 


08449 *EXPNT2 


08450 


08546 


RET7 


08558 


RF 


08582 


RF 1 


08594 


RF2 


08606 


08642 


RF4 


08654 


RF5 


08698 


CONV 


08746 


TESTD 


08802 


08826 


MVWRD 


08853 


EXP3 


08858 


WRNUM 


08857 


NO 


08896 


Q3Q8B 


CADD 


09220 


CADD1 


09292 


INC 


09400 


INC2 


09532 


09730 


RIND 


09774 


RIDD 


09846 


CMPR 


09902 


RDCON 


09998 


10070 


CMPF 


10110 


*RDF0RM 


10182 


WGTS 


10266 


FLT 


IO278 


10494 


RET2 

















372. * 



00010* PROGRAM 80-E, SUM CHECK PROGRAM, NOV. 1, 1 963 
00020* 



FSUB 
RCPR 
EXN 
SQRT 


00030* 

00040REF 

00050 


DS 

DORG 


, 15000 
402 


15000 00000 




TRCON 
WRITE 
JUMP2 
♦OUTPUT 
FF 
RF3 


00060C0NT 
00070DATE 
00080PR0B 


DSS 

DS 

DS 


80 

6.C0NT+5 
2.C0NT+7 


00402 

00402 00080 
0040 7 00006 




SETM 
START 
CADD2 
*RDTRAN 
PRH 


00090N0BS 
\ 00100NF0RM 
001 10 INVAR 


DS 
DS 
DS 


5.CONT+12 
3.C0NT+15 
3.C0NT+18 


00409 00002 
00414 00005 
00417 00003 






i. ooi2onovar 
i_. 00130N 


DS 
DS 


3.C0NT+21 
3.C0NT+24 


00420 00003 
00423 00003 






■ 00140NDEP 


DS 


3.C0NT+27 


00426 00003 






00150N0TRAN 

Q0160N0C0N 

00170NCOL 


DS 
DS 
DS 


3.CONT+30 
3.CONT+33 
2.C0NT+35 


00429 00003 
00432 00003 
00435 00003 






00180NELIM 
00190C0N1 
00 200C ON 2 


DS 
DS 
DS 


3,C0NT+38 
1.C0NT+39 
1.C0NT+40 


00437 00002 

00440 00003 

00441 00001 






L 00210C0N3 
00220C0N4 
00230C0N5 


DS 
DS 
DS 


1.C0NT+41 
1.C0NT+42 
1.C0NT+43 


00442 00001 

00443 00001 

00444 00001 







00240C0N6 
00250C0N7 
00260CON8 


DS 
DS 
DS 


1.C0NT+44 
1.C0NT+45 
1.C0NT+46 


00445 00001 

00446 00001 

00447 00001 






1 00270C0N9 
> 00280C0N10 


P_s 

DS 


1 ,C0NT+47 
1,C0NT+48 


00448 00001 

00449 00001 

00450 00001 





373. 



eft d o art r nw 1 i 




1 , L UN 1 +H y 


001+51 00001 




DS 




00i+52 00001 


w W j I v^UiN 1 J 


Uo 


1 r nNTj.C1 


00453 00001 


W W jX. UN I H 


nc 


1 , U UIN i -r 5/ 


001+5^ 00001 


Ad i i(Sc nw i c 


nc 
Uj 


1 r nMT_i_c 1 


001+55 00001 


19 S3 34i0UUN 1 o 


nc 
Ui> 


1 , LUN 1 + pi+ 


001+56 00001 


vv 3:>0t-UN 1 / 


nc 


1 rnwTxcr 
] , LUN ( +p3 


00457 00001 






1 , LUN 1 + 50 


/Intl. rQ t%r%fHrtt\ 

00*+5o 00001 


flirt nrtnoc td 


nc 


1 V , CUN 1 + /9 


001+81 00010 


ad iPrt i ki n 
vv }OVt 1 NU 


nc 


5 


flirt /1 ft £. fflAcmic 


00 3901 D 


nc 


r 

5 


001+91 00005 


Iff vHlfliO 1 UU 


nc 


5 


001+96 00005 


flflk 1 CiFORMAT 




r 
P 


00501 00005 


VvHili/l llUtA 


DS 


c 
P 










00506 00005 




DS 


p 








00511 00005 
00516 00005 


V >/ i r 4 t vUn IH| 


DS 


c 
p 


flfitiiQClnATA? 


DS 


c 
p 










00521 00005 
00526 00005 


DS 


r 
P 




DS 


r 
P 


00531 00005 




DS 


c 
p 




00490SUM1 


DS 


c 
p 


00541 00005 


0J1 500S 1 GMA 


DS 


5 


00546 00005 


00510R 


DS 


5 


00551 00005 


00520WT 


DS 


r 
~> 


00556 00005 


00530ADKK 


DS 


5 


00561 00005 


00540ADRNN 


DS 


5 


00566 00005 


00550ADIJ 


DS 


5 




00560AORIJ 






00571 00005 


DS 


5 


00576 00005 



© 



00570SIGN3 


DS 


5 










00581 


00005 


00580COUNT 


DS 


5 










00586 


00005 


00590CNTR 


DS 


3 










00589 


00003 


00 600CTR 


DS 


3 












00592 


00003 


006101 


DS 


3 












00595 


00003 


00620J 


DS 


3 












00598 


00003 


00 630K 


DS 


3 










00601 


00003 


00640P 


DS 


3 












00604 


00003 


00 650Q 


DS 


3 










00607 


00003 


00660MSZ 


DS 


4 




00004 






00611 


006701 VE 


DS 


3 












00614 


00003 


00 6801 VP 


DS 


3 












00617 


00003 


00690TEMP1 


DS 


10 












00627 


00010 


00700TEMP2 


DS 


10 












00637 


00010 


00710EY 


DS 


10 












00647 


00010 


00720RSQR 


DS 


10 












00657 


00010 


00730SQR 


DS 


10 












00667 


00010 


00740DF 


DS 


10 












00677 


00010 


0D750F 


DS 


10 












00687 


00010 


00760FIN 


DS 


10 












00697 


00010 


00770FOUT 


DS 


10 












00707 


00010 


00780HIGH 


DS 


10 












00717 


00010 


00790VP 


DS 


10 












00727 


00010 


00800VE 


DS 


10 












00737 


00010 


00810OUT 


DS 


80 












00817 


00080 


00820 


DC 


1 ,® 












00818 


00001 


00830PRBL 


DAC 


6.PR0B ffl 










00821 


00006 



a 



08840YRBL 
00850OBSR 
00860COM2 
00870COM1 
00880 
00890FP001 
-11300 



DAC 

DAC 

DAC 

DAC 

DC 

DC 

DC 



5. VAR@ 
7, OBSERO 



00833 00005 



00843 00007 
31, SUMS OF TRANSFORMED VARIABLES.® 

00857 00031 

25, SUMS OF INPUT VARIABLES.® 

00919 00025 



00-911FHIGH DC 



00920 
9307 FRO 



DC 
DC 



IQS DC 
-40950- DC 
-0J9&0QNI DC 
-0A370ALPHA DAS 

00980— DAC 

-04990P1*UM DS 
-0-1000MCNT DS 
-U040STARTE RCTY 
01020ALPH RACD 



-0403* 
01040 



01060 
01070 



WATY 
RCTY 
BNR 
B 

DORG 



01080* 

01090* READ AND 
1 100* 

01110 TFM 



01120 



B 



8,10000000 
2.-2 

8,10000000 

2,50 

8.0 

2,-99 

10.0 

8,10000000 

2,1 

80 

4 
3 

ALPHA 
ALPHA 

*+20,ALPHA+158 

ALPH 

*-3 

FLAG PARAMETERS, 

RET2+6,*+20 

START 



00975 00008 

00977 00002 

00985 00008 

00987 00002 

00995 00008 

00997 00002 

01007 00010 

01015 00008 

01017 00002 

01019 00080 

01179 00001 

01183 00004 

01186 00003 

01188 34 00000 00102 

01200 37 01019 00500 

01212 39 01019 00100 

01224 34 00000 00102 

01236 45 01256 01177 

01248 49 01200 00000 

01256 

01256 16 03738 01276 
01268 49 01764 00000 



O 



376. 



01130 



DORG *-3 



- 01220 



- 01230* 

01240* CUMULATE SUMS OF INPUT VARIABLES. 



- . 01250* 
01260 

01270 



01280* 

_ 01290* IS INPUT DATA PRINTED. 
BNC1 TRD 



1 140* 
01150* SET COUNTER. 
01160* 

01170 TF COUNT, NOBS 

01180* 

01190* READ, FLOAT, AND STORE ONE OBSERVATION 
01200* 

01210LOOP TF WCTR, INVAR 



01276 



01276 26 00586 00414 



BT RFS.DATA1 



TF 
BT 



S1+23.SUM1 
SUMS, INVAR 



01300 
01310 
01320 
01330 
013^0 
01350 



TF WORDS , I NVAR 
TF PR I NT 1+28, DATA 1 
TFM RET1+6,*+20 
B PR I NT 
DORG *-3 



01360* 

01370* TRANSFORM DATA. 



01288 2 6 
01300 27 

01312 26 
01324 27 

01336 47 
01348 26 
01360 26 
01372 16 
01384 49 
01392 



06866 00420 
06872 00516 

07985 00541 
07950 00420 

0H92 00100 

06753 00420 
06794 00516 
06862 01392 

06754 00000 



01380* 
01390 TRD 

. 01400 

_ .01410 



CM NOTRAN.0,10 
BE END 
BTM TFS,0,10 



01420* 
01430* 
1440* 
01450 

01460 

01470* 
01480* 
01490* 



01392 14 
01404 46 
01416 17 

CUMULATE SUMS OF TRANSFORMED VARIABLES 
TF S1+23.R 
BT SUMS.N 



01428 26 
01440 27 



00432 00000 
01508 01200 
05112 00000 

07985 00551 
07950 00426 



ARE TRANSFORMED DATA PRINTED. 



01500 


BNC2 


END 


01510 


TF 


WORDS, N 


01520 


TF 


PRINT1+28.DATA1 


01530 


TFM 


RET1+6,*+20 


01540 


B 


PRI NT 


01550 


DORG 


*-3 


01560END 


SM 


COUNT ,1,10 


01570 


BP 


LOOP 


01580* 
01590* PR 1 
01600* 
01610 


NT SUMS OF INPUT DATA 
RCTY 


01620 


RCTY 




01630 


WATY 


COM1 


0161*0 


RCTY 




01650 


RCTY 




01660 


TF 


WORDS, INVAR 


01670 


TF 


PRINT1+28.SUM1 


01680 


TFM 


RET1+6,*+20 


01690 


B 


PR 1 NT 


01700 


OORG 


*-3 


01710* 
01720* ARE 
01730* 


SUMS 
CM 


OF TRANSFORMED 
NOTRAN.0, 10 


01750 


BE 


Fl NISH 


01760 


RCTY 




01770 


RCTY 




01780 


WATY 


COM2 


01790 * 


TF 


WORDS, N 




TA PRINTED. 



01452 


47 


01508 


00200 


011+64 


26 


06753 


00426 


01476 


26 


06794 


00516 


01488 


16 


06862 


01508 


01500 


49 


06754 


00000 


01508 








01508 


12 


00586 


00031 


01520 


46 


01288 


01 100 


01532 


34 


00000 


00102 


01544 


34 


00000 


00102 


01556 


39 


00919 


00100 


01568 


34 


00000 


00102 


01580 


34 


00000 


00102 


01592 


26 


06753 


00420 


01604 


26 


06794 


00541 


01616 


16 


06862 


31636 


01628 


49 


06754 


00000 


01 636 








01636 


14 


00432 


00090 


01648 


46 


01740 


01200 


01660 


34 


00000 


00102 


01672 


34 


00000 


00102 


01684 


39 


00857 


00100 


01696 


26 


06753 


00426 



01800 


TF 


PR 1 NT 1 -+-2 


01810 


TFM 


RET1+6,* 


01820 


B 


PR 1 NT 


01830 


DORG 


*-3 


01840FINISH 


H 




01850 


B 


STARTE 


01860* * * * 
01870* SUBROUTINE TO INI 
01880* * * * 


01890START 


RNCD 


CONT 


01900 


SF 


DATE-5 


01910 


SF 


DATE-3 


01920 


SF 


DATE-1 


01930 


SF 


PROB-1 


01940 


SF 


NOBS-4 


01950 


SF 


NFORM-2 


01960 


SF 


1 NVAR-2 


01970 


SF 


NOVAR-2 


01980 


SF 


N-2 


01990 


SF 


NDEP-2 


02000 


SF 


NOTRAN-2 


02010 


SF 


NOCON-2 


02020 


SF 


NCOL-1 


02030 


SF 


NELIM-2 


02040 


TFM 


CMCOL+1 1 



02050* 

02060* COMPUTE ADDRESSES FOR DATA FIELDS 

02070* 

02080CADD TFM I ND,REF 
02090 TF TEMPI, I ND 



01708 


26 


06794 


00551 


01720 


16 


06862 


0171+0 


01732 


49 


06754 


00000 


01740 








01740 


48 


00000 


00000 


01752 


49 


01 188 


00000 


01764 


36 


00402 


00500 


01776 


32 


00402 


00000 


01788 


32 


00404 


00000 


01800 


32 


00406 


00000 


01812 


32 


00408 


00000 


01824 


32 


00410 


00000 


01836 


32 


00415 


00000 


01848 


32 


00418 


00000 


01860 


32 


00421 


00000 


01872 


32 


00424 


00000 


01884 


32 


00427 


00000 


1 896 




Pin ytt 


wwv 


01908 


32 


00433 


00000 


01920 


32 


00436 


00000 


01932 


32 


00438 


00000 


01944 


16 


07071 


01 171 


01956 


16 


00486 


T5000 


01968 


26 


00627 


00486 



02100 


AH 


TEMPI, 80, 10 








02110 


CM 


N,80, 10 


01980 


11 00627 




02120 


BNP 


*+24 


01992 


14 00426 


WvO%l 


02130 


AM 


TEMPI, 80, 10 


02004 


47 02028 


All 0101 
V 1 1 vv 


02140 


AM 


TEMPI, 1, 10 


02016 


11 00627 


00080 


02150 


TF 


ID, TEMPI 


02028 


11 00627 


00001 


02160 


BD 


*+20,CON3 


02040 


26 00491 


00627 


02170 


B 


CADD1 


02052 43 02072 


00443 


02130 


DORG 


*-3 


02064 49 02108 


00000 


02190 


A 


TEMP 1 , N 


02072 






02200 


A 


TEMPI, N 


02072 


21 00627 


0042 6 


02210 


TF 


IDD, TEMPI 


02084 


21 00627 00426 


02220CADO1 


A 


TEMP 1 , N 


02096 


26 00496 


00627 


0223ft 


A 


TEMP 1 , N 


02108 


21 00627 


00426 


02240 


AM 


TEMPI, 4, 10 


02120 


21 00627 


00426 


02250 


TF 


FORMAT, TEMPI 


02132 


11 00627 


00004 


02260 


TF 


TEMP2.NFORM 


02144 26 00501 


00627 


02270 


TFM 


CTR,0, 10 


02156 26 00637 


00417 


022801 NC 


AM 


CTR, 1, 10 


02168 


16 00592 


00000 


02290 


SM 


TEMP2.13.10 


02180 


11 00592 


00001 


02300 


BP 


INC 


02192 


12 00637 


000T3 


02310 


MM 


CTR, 78, 10 


02204 


46 02180 


01100 


2 320 


A 


TEMPI ,99 


02216 


13 00592 


00078 


02330 


AM 


TEMPI, 4, 10 


02228 


21 00627 


00099 


02 340 


TF 


INDEX, TEMPI 


02240 


11 00627 


00004 


02 350 


TF 


TEMP2 , NOTRAN 


02252 


26 00506 00627 


02 360 


TFM 


CTR ,0,10 


02264 
02276 


26 00637 
16 00592 


00432 
00000 



Q 



380. 



02370INC2 


AM 


C TR , 1 , 1 




71 

00001 




02288 1 1 00592 


02380 


SM 


TEMP2, 10, 10 




0001 




02300 12 00637 


02390 


BP 


1 NC2 










02312 46 02288 


01 100 


02400 


MM 


CTR, 80, 10 










02 324 13 00592 


00080 


02410 


A 


TEMPI , 99 








02336 21 00627 


00099 


02420 


AM 


TEMPI, 2, 10 




00002 




02 348 11 00627 


02430 


TF 


CONST, TEMPI 










02360 26 00511 


00627 


02440 


A 


TEMP 1-1 , NOCON 










02372 21 00626 


00435 


02450 


TF 


DATA 1 , TEMPI 








02384 26 00516 


00627 


02460 


A 


TEMP1-1 , NOVAR 










02 396 21 00626 


00423 


02470 


TF 


DA TA2, TEMPI 








02408 26 00521 


00627 


02480CADD2 


A 


TEMP 1-1 , 1 NVAR 


02420 21 00626 


00420 


02490 


TF 


B, TEMPI 


02432 26 00526 


00627 


02500 


A 


TEMP 1-1 , N 








02444 21 00626 


00426 


02510 


TF 


SE , TEMP 1 


02456 26 00531 


00627 


02520 


A 


TEMP1-1 ,N 


024 68 2 1 00 626 


00426 


02530 


TF 


T, TEMPI 


02480 26 00536 


00627 


02540 


A 


TEMP1-1 ,N 


02492 21 00626 


00426 


02550 


TF 


SUM1 , TEMP 1 


02504 26 00541 


00627 


02560 


A 


TEMP 1-1, INVAR 


0251 6 21 00626 


00420 


02570 


TF 


SIGMA, TEMPI 










02528 26 00546 


00627 


a o c Pol 


A 


TPMP 1—1 W 
1 trlr 1 — 1 , IN 


02540 21 00626 


00426 


02590 


TF 


R, TEMPI 


02552 26 00551 


00 627 


02670 


TFLS 


FIN, ZERO 










02564 16 08335 
02576 49 08284 
02583 00005 
02588 00005 


02587 
00000 
00697 
00997 


02680 


TFLS 


FOUT.ZERO 


02594 16 08335 
02606 49 08284 
02613 00005 
02618 00005 


02617 
00000 
00707 
00997 



Q 



02690 



02700* 
02 710* 
02720* 
02730 

027lt0* 
02750* 
02760* 
02770 

02780 

02790RI ND 

02800 

02810 

02820 

02830 

02840RIDD 

02850 

02860 

02870 

02880 

02890 

02900* 
02 910* 
02920* 
A23J0CMPR 

2 940 



TFLS F.ZERO 



IS ADV USED. 
BD RIDD,CON3 

READ I ND CARD(S), 

TF COUNT, N 

TF *+l8,IND 
RNCD 99999 

SM COUNT, 80, 10 

BP RIND 

B CMPR 

DORG *-3 

TF RF 1+6,100 

SM RF 1+6, 1,10 

TFM RF2+11,80,10 

TFM RF3+1 1,40, i0 

TFM RF5+11.2, 10 

BT RF.NDEP 



02624 16 08335 0261+7 
02636 1+9 08281+ 00000 
02643 00005 00687 
0261+8 00005 00997 



02651+ i+3 027 31+ 001+1+3 



02950* 
02 960* 
02970* 
02980 

02 990 

03000 

03010 

3020* 
3030* 



I S 



02666 26 00586 001+26 
02678 26 02696 001+86 
02690 36 99999 00500 
02702 12 00586 00030 
02714 1+6 02690 01100 
02726 1+9 02806 00000 
02734 

02731+ 26 03978 001,96 
02746 12 03978 00031 
02758 16 03995 00080 
02770 16 01+007 000C0 
02782 16 01+055 00002 
02791+ 27 03948 001+29 
IS THE NUMBER OF TRANSFORMATION CONSTANTS «= ZERO. 
CM NOCON.0,10 

02806 11+ 001+35 

BP RDCON 

02818 1+6 02862 01 1 

THE NUMBER OF TRANSFORMAT I ONS= ZERO. 
CM NOTRAN , , 10 

02830 11+ 001+32 

BP RDTRAN 

0281+2 1+6 02958 01 1 

B CMPF 

02851+ 1+9 03030 

DORG *-3 

02862 

READ FORMATS FOR TRANSFORMATION CONSTANTS, ONE CARE 



o 



Q 



301+0* 

3050RDCON TF 



3060 

03070 

3080 

03090 

3100 

031 10* 
3120* 
03130* 
03140 

_ 03150 



RF 1+6, FORMAT 

SM RF 1+6, 5, 10 

TFM RF2+11.78, 10 

TFM RF 3+1 1,13,10 

TFM RF5+11.6.10 

BTM RF.13,10 

READ, FLOAT AND STORE TRANSFORMATI 

TF WCTR.NOCON 

BT RFS, CONST 



03160* 
03170* 
3180* 

031 90RDTRAN TF 



READ TRANSFORMATION INDEXES. 

RF1+6, INDEX 

03200 SM RF 1+6, 7, 10 

03210 TFM RF2+1 1 ,80, 10 

03220 TFM RF 3+1 1,10, 10 

03230 TFM RF5+11,8,10 

0321+0 BT RF, NOTRAN 

03250* 
03260* 

03270* ARE FIN AND FOUT READ. 
3280* 

03290CMPF BD *+20.CONl+ 



03300 

03310 

03320 

03330 

3340 

3350* 
03360* 
03370* 



B RDFORM 

DORG *-3 

TFM RET7+6, RDFORM 

B FF 

DORG *-3 

READ FORMATS FOR DATA. 



02862 


26 03978 


00501 


02871+ 


12 03978 


00005 


02886 


16 03995 


00078 


02898 


16 04007 


000T3 


02910 


16 04055 


00006 


02922 


17 03948 


00013 


ON CONSTANTS. 




02934 


26 06866 


00435 


02946 


27 06872 


0051 1 


02958 


26 03978 


00506 


02970 


12 03978 


00007 


02982 


16 03995 


00080 


02994 


16 04007 


000T0 


03006 


16 04055 


00008 


03018 


27 03948 


00432 



03030 43 03050 00444 
03042 49 03070 00000 
03050 

03050 16 04184 03070 
03062 49 04082 00000 
03070 



383. 



03380RDFORM TF 
03390 
34 
03410 
3420 

3430 

34 1+0* 
03450* 
3460* 
3470WGTS 

03480 

3490* 
3500* 
03510* 
3520 

03530 

3540 

03550 

3560 

3570* 
3580* 
3590* 
3600FLT 



RF 1+6, FORMAT 
SM RF 1+6, 5, 1 
TFM RF2+1 1 , 78, 10 
TFM RF 3+1 1 . 13. 10 
TFM RF 5+ 11, 6, 10 
BT RF , NFORM 

SET UP ADDRESS OF WEIGHTS, 
TF WT , DATA 1 
A WT-l.N 



SET UP NUMBER OF CARD COLUMNS TO READ 

CM NCOL,0,10 

BE FLT 

TFM CMCOL+11, ALPHA 

A CMCOL+1 1 ,NCOL 

A CMCOL+1 1 , NCOL 

FLOAT NUMBER OF OBSERVATIONS. 

3T CONV.NOBS 



03610* 
3620* 

3630* CLEAR I D.SUM1 .SIGMA, AND R 
03640* 



3650CLR 
3660 
3670CLR2 
3680 
3690 
03700 



TF 
TF 

TFM 
AM 
SM 
BP 



CLR2+6, ID 
CNTR.N 

99999,0, 10 
CLR2+6.2, 10 
CNTR, 1 , 10 
CLR2 



03070 


26 


03978 


00501 


03082 


12 


03978 


00005 


03094 


16 


03995 


00078 


03106 


16 


04007 


000T3 


031 18 


16 


04055 


00006 


03130 


27 


03948 


00417 


03142 


26 


00556 


00516 


031 54 


2 1 


00555 


(OlflHZ b 


03166 


14 


00437 


00000 


03178 


46 


03226 


01200 


03190 


16 


07071 


01019 


03202 


21 


07071 


00437 


03214 


21 


07071 


00437 


03226 


27 


03746 


00414 


032 38 


26 


03268 


00491 


03250 


26 


00589 


00426 


03262 


16 


99999 


00000 


03274 


11 


03268 


00002 


03286 


12 


00589 


00001 


03298 


46 


03262 


01 100 



Q 



384. 



03710 


1 r 


COUNT, 1 NVAR 












03.3. 1 


26 00586 


00420 


03720 


A 


COUNT, N 














03322 


21 


00586 


00426 


03730 


A 


rni i'mt m 
lUUiN 1 , vi 














33 3li 
If .5 .5 .5*+ 


21 


00586 


0042 6 


ft rt 


1 r 
















26 


03381 




03750CLK 3 


1 r Li 


oooao 7ppn 












012 2 Cft 


16 


08335 








033/0 


49 


08284 


Aftl 01 Ot 0\ 
vv v v v 








03377 


00005 


yyyyy 








033o2 


00005 


loioyy / 


3760 


AM 


CLR3+23, 10, 10 








000T0 




rt n *>QQ 


1 1 


03381 


3770 


SM 


COUNT ,1,10 












03400 


12 


00586 


0000 1 


03780 


BP 


CLR 3 
















1. c 
4b 


03350 


V 1 1 *>lu 


03790* 














la lovv 


1 C IT 
lb II 


a n w 

AUV, 










3ol0" 














3820 


D U 


* +Z v j ~ Uli j 
















03424 


ii 2 


01 2I1I1I1 


00443 


u 30 201 
v )oov 


D 
D 


PR M 
rf\n 
















01 2ii 2 A 




01 2 c 1 a 
v io 1 


OlolClOiOi 

VVVVV 


v .504-10 


nnp r 
UUKb 


* _ 2 












TF 
1 r 


U LK 1 + D , 1 NU 
















26 


03474 


ctoWi R A 


v .JOOlo 


TC 
1 1 


CNTR N 
















3ii C A 


26 


00589 


00Ui7 A 


v 50 / 100 Lr\ I 


TDM 


QQQQQ 
















Ol2liAft 
IDpM- DO 


15 


99999 


VVVVV 


a 2ftftOI 

V jOOv 


AM 


r 1 R 1 + A 1 10 

L.i\ |TOj 1 , IV 


















1 1 


03474 


tew vio 1 




SM 


TWTR 1 IPS 


01 2i^ QO 


12 


00589 


00001 




R P 

D r 


















01 2 COIk 


46 


03468 


aii act 


391 0PRH 


RCTY 


















03516 


34 


00000 


00102 


03920 


BT 


WRNUM.DATE-4 
















03528 


27 


03906 


00403 


03930 


SPTY 


















03540 


34 


00000 


00101 


03940 


BT 


WRNUM , DATE -2 














03552 


27 


03906 


00405 


3950 


SPTY 


















03564 


34 


00000 


00101 


3960 


BT 


WRNUM.DATE 
















03576 


27 


03906 


00407 


3970 


RCTY 


















03588 


34 


00000 


00102 



385. 



3980 WATY PRBL 

3990 BT WRNUM.PROB 

04000 TBTY 

04010 BT WRNUM , N 

04020 WATY VRBL 

04030 TBTY 

04040 TF OUT, NOBS 

04050 CF OUT-4 

04060 WNTY OUT-4 

04070 WATY OBSR 

04080 RCTY 

04090RET2 B 99999 

04100 DORG *-3 

04110* * ' * * * * 

04120* SUBROUTINE TO FLOAT NOBS , 

04 1 30* * * * * * * 



04140 


DS 


5 


04150CONV 


TFM 


EXP3.5, 10 


04160 


TFM 


TESTD+11 .CONV-5 


04 1 70 


TFM 


MVWRD+6.0BSER-5 


04180 


TF 


OBSER , ZEROS 


04190TESTD 


BD 


SETM, 9^999 


04200 


AM 


TESTD+11 , 1 , 10 


04210 


SM 


EXP3, 1, 10 


04220 


SM 


MVWRD+6, 1,10 


042 30 


B 


TESTD 


04240 


DORG 


*-3 


042505ETM 


TF 


*+l8,TESTD+1 1 


042 60 


SF 


99999 


042 70 " 1VWRD 


TF 


99999, CONV-1 



03600 


39 


00821 


00100 


03612 


27 


03906 


00409 


03624 


34 


00000 


00108 


03636 


27 


03906 


00426 


03648 


39 


00833 


00100 


03660 


34 


00000 


00108 


03672 


26 


00817 


00414 


03684 


33 


00813 


00000 


03696 


38 


008 1 3 


00 1 00 


03708 


39 


00843 


00100 


03720 


34 


00000 


00 3 02 


03732 


49 


99999 


00000 


03740 








03744 


00005 




03746 


16 


03901 


00005 


03758 


16 


03805 03741 


03770 


16 


03880 00476 


03782 


26 


00481 


01007 


03794 


4 3 


03850 


99999 


03806 


1 1 


03805 


00001 


03818 


12 


03901 


00001 


03830 


12 


03880 


00001 


03842 


49 


03794 


00000 


03850 








03850 


26 


03868 03805 


03862 


32 


99999 


00000 


03874 


26 


99999 


03745 



o 



Q 



042 80 


TF 


OBSER, EXP3 














03oob 2c iflWHCi iCiyWl 


042 90 


BB 




















IB jOyo low*'*'*' vvVvv 


04300 


DORG 


*• _ q 


















03900 


04310EXP3 


DS 


2 
















03^01 vWCl 


04320 


DS 


4 
















f% *i r \ f% t~ f% f\ r% rs 1 • 

03905 0000H 


04330WRNU? 


1 TF 


OUT , NO 






03906 26 00817 03905 








04 340NO 


OS 


.WRNUM-1 














03905 00000 


04350 


CF 


OUT-1 
















03918 33 00816 00000 


04 360 


WNTY 


OUT-1 
















03930 38 00816 00100 


04370, 


BB 


















03942 42 00000 00000 


04380 


DORG 


*-9 
















03944 


04390* 




* * 






*■ A * A * 


04400* 


SUBROUT! NE TO READ 


AND 


FLAG FORMATS , TRANSFORMATION IN 


04410* 


AND 


IDD, INDEXES 


OF 


JEPENDENT 


VAR 1 ABLES FOR ADV. , 


04420* 


* * 




* 




* * * * 


04430 


DS 


3 


















03946 00003 


04440RF 


TF 


CNTR.RF-1 
















03943 2 6 00589 03947 


04450 


TF 


RF4+6.RF 1+6 
















03960 2 6 04038 03978 


04460RF 1 


RNCD 


99999 


















03972 36 99999 00500 


04470RF2 


AM 


RF1+6, 99999 


















03984 1 1 03978 99999 


04480RF 3 


SM 


CNTR , 99999 


















03936 12 00589 99^99 


04490 


BP 


RF1 


















04008 46 03972 01 100 


04500 


TF 


CNTR , RF — 1 


















04020 26 00589 03947 


ft 1, r 1 <%D C It 


SF 


99999 


















04032 32 99999 00000 


04520RF5 


AM 


RF4+6, 99999 


















04044 1 1 04038 39999 


04530 


SM 


CNTR, 1, 10 


















04056 12 00589 00001 


04540 


BP 


RF4 : 


















04068 46 04032 01 100 


04550 


BB 




















04080 42 00000 00000 


04560 


DORG 




















04082 


04570* 




■k * 




* * 


* * 



04580* 
01+590* 
01+600FF 

' 01+610 

01+620 

01+630 

01+640 

01+650 

01+660* 
01+670* 
01+680 

01+690 

01+700RET7 

'01+710 



SUBROUTINE FOR READING FIN AND FOUT 

* • * . .*• . * * * * 
TF RF 1 + 6, FORMAT 

SM RFI+6,5,10 

TFM RF2+1 1 , 78 , 10 

TFM RF3+11,13,10 

TFM RF5+11 10 

BTM RF,2,10 



01+720* 
01+730* 
01+740* 
01+750* 
01+760 



01+082 26 03978 ; 00501 
01+094 12 03978 ; 00005 
01+106 16 03995 00078 
01+118 16 01+007 0001.3 
01+130 16 01+055 .00006 
01+11+2 17.039.1+8:00002 

01+154 16 06866 00002 

01+166 17 06872 00697 

01+178 1+9 99999 .00000 
04186 

* * * * * * * * . * * * * 
SUBROUTINE FOR PREPARING DATA FOR ALPHAMER I CAL PRINTING OR 
PUNCHING. INTERNAL FORMAT IS SPSII. ■ , 

* * * * . * * * * * * . . 



READ .FLOAT AND STORE FIN AND FOUT 
TFM WCTR.2,'10 

BTM RFS.FIN 

B 99999 

DORG *-3 



DS 10 

01+770FLTFIX CF ARG-9 

01+780ARG DS .FLTFIX-1 

01+790 TF OUTPUT, SEVENS 

01+800 CF OUTPUT-9 

01+810 TF OUTPUT-10,DCMAL 

01+820 TFM OUTPUT-19,0,9 

01+8.30 TFM SIGN, 0,10 

0481+0 BNF JUMP.ARG-2 

01+850 TDM S !" G N— 1,2, 11 

01+860 CF ARG-2 

01+870JUMP CM ARG, 99, 1011 

04880 BE WRALPH 



01+195 00010 
04196 33 04186 00000 
04195 00000 
04208 2 6 05083 05095 
04220 33 05074 00000 
042 32 26 05073 05105 
04244 16 05064 00000 
0425.6 16 05107 00000 
042 68 44 04304 04193 
04280 15 05106 00002" 
042 92 33 04193 00000 
04304 14 04195 00093 
04316 46 04640 01200 



Q 



04890 


CM 


ARG , , 10 




04900 


BNP 


DEC! ML 


04328 14 0419 5" 0000 


04910 


CM 


ARG, 4, 10 


04340 47 04686 01 100 


04920 


BH 


LARGE 


04352 14 04195 00004 


'04930 


TFM 


TRNMT+1 1 , ARG-9 


04364 46 04766 01 100 


'04940 


TFM 


*+42,OUTPUT-10 


04376 16 04435 04186 


04950 


S 


*+30,ARG 


04388 16 04430 05073 


04960 


S 


*+l8,ARG 


04400 22 04430 04195 


04970TRNMT 


TD 


'99999/99999 


04412 22 04430 04195 


04980 


AM 


TRNMT+1 1, 1 , 10 


04424 25 99999 99999 


04990 


AM 


TRNMT+6,2, 10 


04436 11 04435 00001 


05000 


CM 


TRNMT+6, OUTPUT-12 


04448 11 04430 00002 


05010 


BNH 


TRNMT 


04460 14 04430 05071 


5020 


TF 


WRI TE+2 3, TRNMT+1 1 


04472 47 04424 01,100 


05030 


TFM 


EX PNT2 , 5 , 10 


04484 26 04591 04435 


05040 


s 


EXPNT2 , ARG 


04496 16 05109 00005 


05050 


TFM 


*+47,SEVENS 


04508 22 05109 04195 


05060 


S 


*+35,EXPNT2 


04520 16 04567 05095 


05070 


S 


*+23,EXPNT2 


04532 22 04567 05109 


05080 


A 


OUTPUT-12 , 99999 


04544 22 04567 05109 


05090WRI TE 


TFM 


*+l8,0UTPUT-8 


04556 21 05071 99999 


05100 


TD 


OUTPUT-8,0 


04568 16 04586 05075 


05110 


AM 


WRI TE+23, 1 , 10 


04580 25 05075 00000 


05120 


AM 


WRITE+18,2, 10 


04592 11 04591 00001 


05130 ■ 


CM 


WRI TE+18, OUTPUT 


04604 11 04586 00002 


05140 


BNH 


WRI TE+12 


04616 14 04586 05083 


051 50WRALPH 


BD 


SETZRO, OUTPUT-18 


04628 47 04580 01 100 


05160 


B 


SETSIG 


04640 43 04660 05065 
04652 49 04972 00000 



05170 


DORG 


*-3 














01+660 






05180SET2RO 


TDM 


OUTPUT .0 














04660 


1 Q 0<;0R ? 


000 00 


5190 


TF 


OUTPUT-20,SiGN 














04672 


26 0t;063 


0t; 1 07 


05200 


BB 














04684 


4? 000£10 


00000 

V V V V V 


52 10 


DORG 


*_q 














04686 






5220DEC i ML 


CM 


ARG ,1+ , 1011 














04686 


)!+ 04195 


00004 


052 30 


BNH 


LARGE 














04698 


47 04766 


01 1 00 


5240 


TFM 


WR ! TE+2 3.ARG-9 














047 1 


1 6 -04591 


04186 


0^2^0 


TFM 


WR1 TE+l8,0UTPUT-8 














04722 


16 04<;8£> 

1 V V" j *J u 




05260 


s 


WR i TE + 18.ARG 














04734 


22 04586 


04 1 95 


05270 


s 


WR ! TE+1 8 + ARG 














04746 


22 04586 


04 1 95 


05280 


8 


WR 1 TE ( -12 














04758 


49 01+580 


00000 


05290 


DORG 


*-3 














04766 






05300LARGE 


rr 


OUTPur-17,SEVEN5-7 














04766 




0C0RA 


05310 


B NF 


JUMP 2 , ARG 
















4L. 04 P, ? f> 


04 1 95 


(55320 


TFM 


OUTPUT-20, 23, 10 
















1 A Q ft £ 2 




05330 


CF 


ARG 














04802 


JJ »"+ 1 33 


fft 0000 


0531*0 


CF 


OUTPUT- 19 














048 14 






5 350JU'-iP2 


TD 


OUTPUT-1 6, ARG 














04826 


2; 0A067 




5 3 60 


TD 


0UTPUT-18.ARG-1 














04838 


2^ £ ;06 £ ; 


04 1 94 


3 5 370 


CF 


OUT PUT- 1 8 














04850 






5330 


TF 


OUTPUT-1 2, SIGN 














04862 


26 05071 


05107 


3 5 390 


CF 


OUTPUT-1 3 












0487^ 


33 05070 


20000 


5403 


TFM 


WR+1 1 ,ARG-9 










04886 


16 0492 1 


04186 


35410 


TFM 


WR+6,OUTPUT-8 










04898 


16 04916 


25075 


5-420WR 


TD 


99999,09999 














04910 


25 99999 


99999 


5-1+30 


AM 


v/R+n, 1, 10 












04922 


11 04921 


00001 


0541.0 


AM 


WR+-6.2, 10 










04934 


11 04916 


00002 



o 



05450 


CM 


WR + 6, OUTPUT 


05460 


BNH 


WR 


05470 


BB 




05480 


00RG 


* - 9 


5490SETSIG 


TFM 


SETS+1 1 .0UTPUT-16 


05500SETS 


BD 


S£T,0UTPUT-l6 


5510 


AM 


SETS+1 1 ,2, 10 


05520 


B 


SETS 


85530 


DORG 


*-3 


05540S ET 


TF 


*+30,SETS+11 


05550 


SM 


*+l8,2, 10 


35560 


TF 


99939, S I GN 


05570 


BB 




05580 


00RG 




5590 


DAS 


14 


05600OUTPUT 


uS 


2 


05610 


DAC 


1 , ? 


05620S EVENS 


OC 


10,7070707070 


5630OCMAL 


DC 


10,0000000003 


05640SIGN 


DS 


-> 


05650EXPNT2 


DS 


2 


05660* * * * * * 
05670* SUBROUTINE TO TRANSFORM 
05680* * * * * 
05690 DS 2 


05700TFS 


TF 


CNT , 1 NVAR 


05710 


TF 


MV+2 3.DATA2 


05720 


TF 


MV+28 .DATA 1 


05730MV 


TF LS 


99999, 99999 



Q 

390 



DATA 



04946 


14 


04916 


05083 


04958 


47 


04910 


01 100 


04970 


42 


00000 


00000 


04972 








04972 


16 


04995 


05067 


04984 


43 


05016 


05067 


04996 


11 


04995 


00002 


05008 


49 


04984 


00000 


05016 








050 16 


26 


05046 


04995 


05028 


12 


05046 


00002 


05040 


26 


39999 


05107 


05052 


42 


00000 


00000 


05054 








05055 


000 14 




05083 


00002 




05085 


00001 




05095 


.00010 




05105 


00010 




05107 


00002 




05109 

* 


00002 




* 

051 11 


00002 




05112 


26 


06640 


00420 


05124 


26 05171 


00521 


05136 


26 


05176 


00516 


05148 


16 08335 


35171 









05160 49 08284 


00000 








05167 00005 


99999 


05740 






05172, 00005 


99999 


AM 


MV+2 3, 10 , 10 






5750 






05178 11 05171 


000T0 


AM 


MV+28, 10, 10 


5760 






05190 11 05176 


00070 


SM 


CNT, 1,10 










05202 1.2 06640 


00001 


05770 


BP 


MV 




05780 






05214 46 05148 


01100 


TF 


CNT , NOTRAN 




5790TRNF 






0522 6 2 6 6640 


00432 


TF 


*+23, 1 NDEX 






05800 






05238 2 6 052 61 


00506 


TF 


SPEC , 99999 






05810 






05250 26 07911 


99999 


SF 


SPEC-1 


05262 32 07910 


00000 


05820 


SF 


SPEC-3 


05274 32 07908 


00000 


05830 


SF 


SPEC-5 


05286 32 07906 


00000 


05840 


TF 


TRF+28 , DATA 1 


05298 26 05362 


00516 


05850 


SM 


TRF+28, 10,10 






05860 






05310 12 05362 


000T0 


A 


TRF+27 , SPEC-2 






05870 TRF 






05322 21 05361 


07909 


TFLS 


WORK , 99999 


05334 16^08335 
05346 49 08284 
05353 00005 
05358 00005 


05357 
00000 
06650 

99999 


05880' 


TF 


MVE+23 , DATA 1 






05890- 






05364 26 06593 


005 16 


SM 


MVE+2 3. 10, 10 


05376 12 06593 


000T0 


05900 


A 


MVE+22 , SPEC-4 




01 7 Q 01 7 


05910 


MM 


SPEC-6,5, 10 










05400 13 07905 


00005 


05920 


_ TFM 


*+35, TRCON-5 


05412 16 05447 


06650 


05930 


A 


"'+2 3,99 












05424.21 05447 
054.36. 2 6 05454 


00099 


05940 


TF 


*+ 18, 99999 


99999 


05950BRCH 


B 


99999 


05448 49 99999 


00000 


05960 


DORG 


*"3 


05456 





05970* 

05980*: HERE ARE THE TRANSFORMATION SUBROUTINES. 
5990* 

06000RETURN TF TRNF 1+28, DATA2 



05456 26 05520 00521 



Q 



6010 


SM 


TRNF1+28, 10, 1 


6020 


A 


TRNF 1 +27 , SPEC 


6030TRNF1 


TFLS 


WORK , 99999 




D 


[ !VL 




DOR G 


5 






OUR 1 WDR V.— 9 
UVr\ 1 ,Y/Ur\l\— "z. 


£(717(71 
OH) IV 


L r 


WUK f\— L 




g 


t 1 VL 


A (71 Q(7i 


nnp r. 


5 


6100OVR1 


SF 


WORK-2 


6110 


B 


MVE 


6120 


DORG 


*-3 


61 30SCALE 


TF 


FADD+28, CONST 


6140 


SM 


FADD+28, 10, 10 


6150 


A 


FADD+27 , SPEC 


6160FADD 


FA 


WORK, 99999 


6170 


B : 


MVE 


6180 


DORG 


*-3 


6190MAGN 


TF 


FMUL+28, CONST 


62 


SM 


FMUL+28, 10,10 


6210 


A 


FMUL+27.SPEC 


62 2 0FMUL 


FM 


WORK, 99999 



054 68 


12 . 


0552 


00j0,T0 


05480 


21 


.0551 9 


07309 


05492 
05504 
0551 1 
05516 


16 08335 
49 08.284 
00005 
00005 


05'54'5. 
00000 
56650 

99999 


05522; 


49 


06570 


00000 


05530 








05530 


44 


05562 


06648 


05542 


33 


06648 


00000 


05554 


49 


06570 


00000 


05562 








05562 


32 


06648 


00000 


05574 


49 


06570 


00000 


05582 








05582 


2 6 


05646 


0051 1 


05594 


12 


05646 


000T0 


05606 


21 


05645 


0791 1 


0561& 
05630 
05637 
05642 


16 08335 
49 08064 
00005 
00005 


05641 
00000 
06650 

99999 


lOpOHO 


49 


06570 


(fi(K(K Chfh 
V V VVV 


05656 








05656 


26 


05720 


0051 1 


05668 


12 


05720 


000T0 


05680 


21 


05719 


0791 1 


05692 
0570'+ 
05711 
05716 


16 08335 
49 08084 
00005 
00005 


05715 
00000 

06650 

39999 



062 30 


B 


MVE 




0621+0 


OORG 


*-3 


Gt^l?? 4Q clAt;7Gl flfflflfflfl 


06250SUM 


TF 


F ADD 1+2 8 , DA TA 1 


*0 1 JV 


62 60 


SM 


F.ADD1+-2 8. 10,10 


flic 7 OA /7\r~rn/i f^mr 1 c 
1 5v io Wb/94 0051b 


06270 




FADD1+27 ,SPEC 


tup/H/ IZ V? / yH VvVliv 


A 


62 80FADD1 


FA 




05766 Id 08335 0578° 
05778 1+9 08061+ 00000 
05785 00005 36650 


WORK, 


62 90 


B 


MVE 


05790 00005 99999 


6300 








DORG 


*-3 


3 6310SUB 


TF 


FS'Uf-f-2'8,DA.TA1 


05801+ 


06320 






05801+ 26 05868 00516 


S M 


FSl'? + ?.8, 10, 10 


06330 






05816 12 05868 000T0 


A 


FSUR+27,SPEC 


06340FSUB 






05828 2 1 05867 0791 1 

05840 16 08335 05863 
05852 1+9 0801+1+ 00000 
05859 00005 06650 


r b 


WORK j 99999 


06350 






05361+ 00005 99999 


3 


MVE. 


06360 






3 C ,870 1+9 06c;7Ci flesPisTifTi 


DORG 


•'•--3 


6370MPY 






05878 


TF 


FMUL 1+28 , DATA 1 




sm 


FMUL 1+28, 10, 10 


05878 26 0591+2 00516 


6382 


6390 






058-90 12 0591+2 000T0 


A 


F MUL 1 +2 7 » S PE. C 




FM 




05902 21 0591+1 0791 1 


3c4 00FMl.iL5 


'WORK ,0999:' 


05911+ 16 08335 05937 
05926 1+9 08081+ 00000 
05933 00005 06650 


61+10 






05938 00005 99999 




MVE 


61+2 






0591+1+ 49 06570 00000 


DORG 


'-3 


61+30DVDE 






05952 


TF 


FD 1 V+28 , DATA 1 


061+1+0 




FDI V+28, 10, 10 


05952 2 6 06016 005 16 


SM 


61+50 






05 964 12 06016 000T0 


A 


F D 1 V+27 , SPEC 


05976 21 06015 0791 1 



Q 



6460FD1 V 

06470 

6480 

61+90RCPR 

06500 

6510 

3 6522 
6530 
6540POWER 
6553 
6560 
06570 

6580AA 

6590 

6600 
06610 
662 0LN 



FD V/ORK, 99999 

B MVE 
DORG *-3 
TFLS TEMP 1 , ONE 

FD TEMPI, WORK 

TFLS WORK. TEMPI 

B '-'VL' 

TF AA+-23, CONST 

SM AA+2 8, 10, 10 

A AA+2 7.SFEC 

FLN WORK , WORK 

FM WORK , 99399 

FEX WORK, WORK 

B " V E 
DORG *-3 
FLN WORK, WORK 



05988 16 08335 06011 
06000 1+9 -081 01+. 00000 
06007 00005 06650 
06012 00005 99999 

06018 1+9 06570 00000 

0602 6 

06026 16 08335 0604= 
06038 49 08284 00000 
06045 00005 00627 
06050 00005 01017 

06056 16 08335 06079 
06068 4 9 08104 00000 
06075 00005 00627 
06080 00005 0665? 

06086 16 06335 0610 J 

06098 49 08284 00000 

06105 00005 06650 

06110 00005 00627 

06! 16 49 06570 00&0P 

06124 

06124 26 06218 0951 1 

06136 1? 06218 000TB 

06148 2 i 06217 07 91 » 

06160 1t> 08335 0^183 

06172 'A'i 032 64 00 

06179 00005 06650 

06184 00005 06650 

06190 16 08335 06213 
06202 4° 08084 00000 
06209 00005 06650 
06214 00005 99999 

06220 16 08335 06243 
062 32 4 9 08224 00000 
06239 00005 06650 
06244 00005 06650 

062 50 4 9 06570 00000 

06258 

06258 16 08335 06281 



6630 
6640 
06650LOG 

6660 
6670 
06680EXN 

6690 
6700 
06710EXT 

6720 
6730 
6740SI N 

06750 
6760 
06770COS 

06780 
6790 



B MVE 
DORG *-3 
FLOG WORK, WORK 

B MVE 
DORG *-3 
FEX WORK, WORK 

B MVE 
DORG *-3 
FEX T WORK, WORK 

B MVE 
DORG *-3 
FSIN WORK, WORK 

B MVE 
DORG *-3 
FCOS WORK, WORK 

B MVE 
DORG *-3 



06800ARCTAN FATN WORK, WORK 



06270 
06277 
062 82 


49 08264 

00005 

00005 


00000 
06650 
06650 


062 88 


49 06570 


00000 


062 96 






062 96 
06308 
06315 
06320 


16 08335 
49 08244 
00005 
00005 


06319 
00000 
06650 
06650 


06326 


49 06570 


00000 


06334 






06334 
06346 
06353 
06358 


16 08335 
49 08224 
00005 
00005 


06357 
00000 

06650 
06650 


06364 


49 06570 


00000 


06372 






06372 
06384 
06391 
06396 


16 08335 
49 08204 
00005 
00005 


06395 
00000 

06650 
06650 


06402 


49 06570 


00000 


06410 






06410 
06422 
0642 9 
06434 


16 08335 
49 08164 
00005 
00005 


06433 
00000 
06650 
06650 


V t>4H V 


*+ J / V 




06448 






06448 
06460 
06467 
06472 


16 08335 
49 08144 
00005 
00005 


06471 
00000 

06650 
06650 


06478 


49 06570 


00000 


06486 






06486 


16 08335 


06509 



06810 
06820 
06830SQRT 

6840 
06850 

6860DUMMY 

06870 
0688 0MVE 

6890 
6900 
06910 
06920 
6930 
06940CNT 
6950WORK 
06960TRCON 



B 

DORG 
FSQR 

B 

DORG 
B 

DORG 
TFLS 

AM 
SM 
BP 
BB 

DORG 
DS 
DS 
DSA 



MVE 
*-3 

WORK, WORK 

MVE 
*-3 

99999 
*_ 3 

99999, WORK 

TRNF+23,8, 10 
CNT , 1 , 10 
TRNF+12 

*-9 
3 

10 



06498 49 08184 00000 
06505 00005 06650 
06510 00005 06650 

06516 49 06570 00000 

06524 

06524 16 08335 06547 

06536 49 08124 00000 

06543 00005 06650 

06548 00005 06650 

06554 49 06570 00000 

06562 

06562 49 99999 00000 
06570 

06570 16 08335 06593 
06582 49 08284 00000 
06589 00005 99999 
065 C J4 00005 06650 

06600 11 05261 00008 

06612 12 06640 00001 

06624 46 05250 01 100 

06636 42 00000 00000 

06638 

06640 00003 



6970 



DSA 



06650 00010 

MVE, RETURN, CHS I GN, SCALE , MAG N , SUM, SUB , MPY , DVDE , RCPR 

06655 00005 06570 

.06660 00005 05456 

06665 00005 05530 

06670 00005 05582 

06675 00005 05656 

06680 00005 05730 

06685 00005 05804 

06690 00005 05878 

06695 00005 05952 

06700 00005 0602 6 
POWER , LN , LOG , EXN , EX T , S I N , COS , ARCTAN , SQRT , DUMMY 

06705 00005 06124 

06710 00005 06258 



o 



06715 00005 
06720 00005 
06725 00005 
06730 00005 
06735 00005 
06740 00005 
06745 00005 
06750 00005 



062% 
06334 
06372 
06410 
06448 
06486 
06524 
06562 



06980* ******* 
06990* SUBROUTINE FOR PRINTING N WORDS. 
07000* ******* 
07010WORDS OS 3 

07020PRINT RCTY 

07030PRINT1 BTFS FLTFIX, 99999 



07040 WATY OUTPUT-20 

07050 TBTY 

07060 AM PRINTI+28,10,10 

07070 SM WORDS, 1,10 

07080 BP PR1NT1 

07090RET1 B 99999 
07100 DORG *-3 

07110* *** ** ******* 
07120* SUBROUTINE TO READ, FLOAT, AND STORE NUMBERS UNDER * 
07130* FORMAT CONTROL. NEEDS NUMBER OF WORDS AND INITIAL * 

07140* ADDRESS WHERE STORED. * 

07150* ************ 
07160WCTR DS 3 

06866 00003 

07170 DS 5 

06871 00005 

07180RFS TF TRSMT+23,RFS-1,,SET UP STORE ADDRESS. 

06872 26 07795 06871 

07190 TFM READN-2 ,READN 

06884 16 06950 06952 

07200 TF FRMT+11, FORMAT 

06896 26 06919 00501 

07210FRMT TF SPEC , 99999 

06908 26 07911 99999 

07220 SF SPEC-1 

06920 32 07910 00000 

07230 SF SPEC-3 

06932 32 07908 00000 



06753 


00003 




06754 


31* 00000 


00102 


06766 
06778 
06785 
06790 


16 08335 
49 08304 
00005 
00005 


06789 
00000 
04196 

59999 


06796 


39 05063 


00100 


06808 


34 00000 


00108 


06820 


11 06794 


000T0 


06832 


12 06753 


00001 


06844 


46 06766 


01100 


06856 


49 99999 


00000 


06864 












07 7^0 


Li ORG 


07260READN 


RACD 


07 270 


TFM 


07280 


TFM 


07 290 LOOP 1 


A 


07300 


A 


07330 


TF 


07340 


TF 


07350CMC0L 


CM 


07 360 


BNL 


07 362 


CM 


07364 


BE 


07370 


TDM 


07 38O 


TF 


07390 


TF 


07400 


TF 


07410 


TF 


07^20 


TF 


07430 


SM 


07440 


TFM 


07450 


TFM 


07 U60 


TFM 


07470 


S 


07480RET 


SF 


07490D1 


CM 


07500 


BL 


07510U2 


TD 


07520 


F 



99999. . t R E.-.Dtl OR L00P1 

*-3 
ALPHA 

READN-2, LOO PI 
ADDR.ALPHA-2 
ADDR,SPEC-2 
ADDR.SPEC-2 

INPUT, ZEROS 

INPUT-9.ZEROS-5 
ADDR , ALPHA+1 54 
READN 

SPEC-4,0, 10 
STEP 1 
SIGN2.0 
D 1+6, ADDR 
D2+11.D1+6 
PER+6.D1+6 
D4+6.D1+6 
RET+6,D1+6 
RET+6,1,10 
D2+6, INPUT 
D5+6, INPUT 
SETFL+6, INPUT+1 
SETFL+6, SPEC-2 
' 99999, , ,ADDR-1 
99999,70, 10 
PER 

90099,99999,, INPUT, ADDR 
CHG+20 



398. 

06944 49.S9399 ooooo 
06952 

06952 37 01019 00 500 
06964 16 06950 0698$ 
06976 16 07916 01017 
06988 21 07916 07909 
07000 21 07916 07909 
07012 26 07930 01007 
07024 26 07921 01002 
07036 14 07916 01 173 
07048 46 06952 01300 
07060 14 07907 00000 
07072 46 07862 01200 
07084 15 07946 00000 
07096 26 07234 07916 
07108 26 07263 07234 
07120 26 07278 07234 
07132 26 07302 07234 
07144 26 07222 07234 
07156 12 07222 00001 
07168 16 07258 0793O 
07180 16 07326 0793O 
07192 16 07494 07931 
07204 22 07494 07909 
07216 32 99999 00000 
07228 14 99999 00070 
07240 47 07272 01300 
07252 25 399°° ooano 
07264 49 07360 00000 



07530 


DORG 


*-3 


07540PER 


CM 


99999,03. 10. ADDR 


07550 


BE 


CHG 


07560 D4 


CM 


99999,20, 10 


07570 


BE 


Ml N 


O758OD5 


TDM 


99999,0, , 1 NPUT 


07590 


B 


CHG+20 


07600 


DQRG. 


*-3 ■ _ 


O76IOMI N 


SF 


S 1 GN2 


07620 


B 


PER+48 


07 63Q 


I1QRG. 


*" 3 


07640CHG 


AM 


SETFL+6,1 ,1Q 


07650 


B. 


*+32 


0766Q 


DORG 


*t3 


07670 


SM 


D2+6, 1 , 10 


07680 


SM..... 


.05+6, 1. 10 


0763Q .. - 


Sti 


Dl+6,2,10 


07700 


SM 


D2+11 ,2, 10 


07710 


SM 


PER+6,2, 10 


07720 


SM 


D4+6,2 f 10 


07730 


SM 


RET+6, 2 , 10 


07740 


C 


D2+6.SETFL+6 


07750 


BNL 


RET 


07 7 60SETFL 


SF 


99999, , ,( INPUT+1 ) 


07770MOVE 


CM 


INPUT, 0, 10 


07780 


BE 


ZEROX 


07790 


TF 


COMN, ZEROS 



SPEC-2) 



07272 








07272 


14 


99999 


00053 


07284 


46 


07 360 


01200 


07296 


14 


99999 


00020 


07308 


46 


07340 


01200 


07320 


15 


99999 


00000 


07332 


49 


07380 


00000 


07340 








07340 


32 


07946 


00000 


07352 


49 


07320 


00000 


07360 








07360 


11 


07494 


00051 


07372 


49 


07404 


00000 


07380 








07380 


12 


07258 


00001 


07392 


12 


07326 


00051 


07404 


12 


07234 


00052 


07416 


12 


07263 


00052 


07428 


12 


07278 


00052 


07440 


12 


07302 


00052 


07452 


12 


07222 


00052 


07464 


24 


07258 


07494 


07476 


46 


07216 


01300 


07488 


32 


99999 


00000 


07500 


14 


07930 


00050 


07512 


46 


07884 


01200 


07524 


26 


07940 


01007 



07 800 


CF 


COMN- 9 


07810 


TFM 


EXPNT, INPUT+1 


O782O 


S 


EXPNT, SETFL+6 


07830 


TF 


BRNCH+1 1 .SETFL+6 


07840 


SF 


EXPNT- f 


O785O 


S 


EXPNT, SPEC 


O786OBRNCH 


BD 


DIGIT, 99999 


07870 


SM 


EXPNT, I ,10 


07880 


AM 


BRNCH+1 1 , 1 , 10 


07890 


B 


BRNCH 


07900 


DORG 


*_ 3 


07910DI G 1 T 


TF 


*+ 30, BRNCH+1 1 


07920 


AM 


*+l8,9, 10 


07930EX 


TF 


99999, ETPRT 


07940 


TF 


*+ 18, BRNCH+1 1 


07950 


SF 


99999 


07960 


"TF - 


"TR3RT+28.R+T 


07970 


BNF 


*+48,SIGN2 


u/ you 


1 r 


J- , TD C M T 1 1 O 


U/990 


TXT 

Ml 


" -3C--; — m-Q v TTT 

" + 1 , 2 , 10 


OoOOU 


SF 


99999 


08010TRSMT 


TFLS 


99999,99999 


08020 


AM 


TRSMT+23, 10, 10 


08030 


SM 


V/CTR, 1, 10 


08040 


BNP 


0VR2 


08050 


SM 


SPEC-4, 1, 10 



07536 33 07931 00000 
07548 16 07945 57931 
07560 22 07945 07494 
07572 26 07619 P7494 
07584 32 07944 00000 
07596 22 07945 07911 
07608 43 07652 99999 
07620 12 07945 00051 
07632 11 07619 00051 
_. 07644 49 07608 00000 
07652 

07652 26 07682 07619 

__ P_Zi§4 1 1 07682 00059 

07676 26 99999 07945 

07688 26 07706 07619 

.07700 32 99999 00000 

07712 26 07800 07682 

07724 44 07772 07946 

07736 26 07766 07800 

07748 12 07766 OOO62 

07760 32 99999 00000 

07772 16 08335 57795 
77B4 49" 58T8T OOOW 
07791 00005 99999 
07796 00005 99999 

07802 11 07795 OOOlO 

7BT4 T 2"0~5855 ~Oi005T 

07826 47 07882 01100 

07838 12 07907 00051 



o 

v y 



F.P 



08060 

08070STEP1 AI 
08030 
08090 
081000VR2 
08110 



L00P1 

FRMT+1 1 ,6, 10 

E FRfIT 
DORG *-3 
BB 

DORG *-9 
08120ZER0X TFM TRSMT+28,ZER0 
08130 " B TRSMT ■ 

08140 DORG *-3 

08150SPEC OS 8 



08160ADDR OS 

08170INPUT DS 

08180C0MN DS 

08190EXPNT DS 

08200SIGN2 DS 



5 

14 
10 
5 
1 



08210* * * * * 
0822Q* SUBROUTINE TO COMPUTE SUMS OF 
08230* VARIABLES. 
08240* * * * * * * 
3 



08250 
08260SUMS 
08270S1 



082 80 
08290 
O83OO 
O831O 
08320 



DS 
TF 
FA 

AM 
AM 
SM 
BP 



S1+28,DATA1 

99999,99999 

S1+23, 10, 10 
S 1+28, 10, 10 
SUMS-1 , 1 , 10 
S1 



07850 46 06988 01100 
07862 11 06919 000(36 
07874 49 06908 00000 
07882 

07882 42 00000 00000 
07884 

07884 16 07800 O0997 
07896 49 07772 00000 
07904 

07911 00008 
07916 00005 
07930 00014 
079^0 00010 

07945 00005 

07946 00001 
INPUT AND TRANSFORMED * 

* * * * * 

07949 00003 

07950 26 07990 00516 

07962 16 08335 07985 
07974 49 08064 00000 
07981 00005 99999 
07986 00005 99999 

07992 11 07985 00070 

08004 11 07990 00070 

08016 12 07949 000(31 

08028 46 07962 01100 

08040 42 00000 00000 



o 



08330 DORG *-9 

08340 DAC 1,0 

08350 DEND STARTE 

LOAD SUBROUTINES 



08042 

08043 00001 
1 1 88 

08044 16 08738 09384 
08056 49 08324 
08064 16 08738 09428 
08076 49 08324 
08084 16 08738 09928 
08096 49 08324 
08104 16 08738 T0 168 
68116 49 08324 
08124 16 08738 T0504 
08136 49 08428 
08144 16 08738 T1084 
O8156 49 08428 
08164 16 08ZJ8 71116 
6S176 49 08428 6 
08184 16 08738 Tl 928 
O8196 49 08428 
08204 16 08738 72913 
08216 49 08428 
08224 1608738 72938 
08236 49 08428~0 
08244 16 08738 73658 
O8256 49 08428 
08264 16 08738 73678 
O8276 49 08428 
08284 16 O8738 74500 
O8296 49 08428 6 
08304 16 08738 74532 
08316 49 08428 



END OF PASS I I 
15000 REF 
00^17 NFORM 
00432 "*NOTRATN 
00442 CON 2 



00447 
00452 
00457 
00496 
0052 1 
00546 
00571 
00592 
00607 
00637 
0068? 
00737 
OO857 
01007 
01188 *STARTE 
01740 *F|N|SH 
02288 " TNC2- 
02862 
03226 
03516 
03874 
03972 
04082 
04424 
04766 
05016 



C0N7 
C0N12 
C0N17 
I DD 

oataz 

S I GMA 
ADIJ 
CTR 

Q 

TEMP2 
VE 

COM2 
ZEROS 



RDCON 
FLT 
PRH 
MVWRO 
RF1 
ff— 
TRNMT 
LARGE 
SET 

05109 *EXPNT2 
05448 BRCH 



00402 
00420 
00475 
00443 
00448 
00453 
00458 
00501 
00526 
00551 
00576 
00595 
00611 
00647 
"00697 
00817 
00919 
01017 
01200 
01764 

"02420 
02958 
03238 
03732 
03901 
3984 

-04778" 
04568 
04826 
05083 
05112 
05456 



CONT 


00407 


- DATE 


00409 


PR OB 


00414 


NOBS 


i NVAR 


00423 


NOV AR 


C0426 


N 


00429 


NDEP 


NOCON 


U043T 


" N'COl 


00440 


NTL1M 


0044T 


"CON 1 


C0N3 


00444 


CONi+ 


00445 


C0N5 


00446 


C0N6 


C0N8 


00449 


C0N9 


00450 


CONTO 


00451 


CONtl 


CON 1 3 


00454 


C0N14 


00455 


C0N15 


00456 


C0N16 


CON 18 


00481 


OBSER 


00486 


1 ND 


00491 


ID 


* FORMAT 


00506 


I NDEX 


00511 


CONST 


005 16 


DATA] 




~ 00 S 31 


SE ' 


00536 




00547 


SUM 1" 


R 


00556 


WT 


00561 


ADKK 


00566 


ADRNN 


ADR 1 J 


00581 


SIGN3 


00586 


COUNT 


00589 


CNTR 


1 


00598 


J 


00601 


K 


00604 


P 


MSZ 


00614 


1 VE 


00617 


1 VP 


00627 


TEMPI 


EY 


00657 


RSOR 


00667 


SOR 


00677 


DF 


FIN 


"00707 


— FCtfT-- 


TTOTTT 


- mm 


00727 


- VP"'- 


OUT 


00821 


PRBL 


OO833 


VRBL 


00843 


OBSR 


COM 1 


00977 


FP001 


00987 


FHI GH 


00997 


ZERO 


ONE 


01019 


ALPHA 


01 183 


PNUM 


01 186 


MCNT 


ALPH 


01288 


LOOP 


01392 


TRD 


01508 


END 


S TAR T 


1 956 


CADD 


02108 


CADD 1 


02180 


1 NC 


- -tAtrDT~~ 


""02690" 


P1NC 


"02734 


R700 


02806 


CM PR 


"RDTRAN 


03030 


CMPF 


03070 


*RDFORM 


03142 


WGTS 


CLR 


03262 


CLR 2 


03358 


CLR 3 


03468 


CLR 1 


RET2 


03746 


CONV 


3794 


TESTD 


03850 


SETM 


fXF3 


03906 


WRNUM 


03905 


NO 


3948 


RF 


RF2 


3996 


RF3 


04032 


RF4 


04044 


RF5 


— RETT - 


-04796" 


+ft.TfTX" " 


-04795 


AR"G 


04304 


JttMP 


WRITE 


04640 


*WRALPH 


04660 


*SETZRO 


04686 


*DEC 1 ML 


JUMP2 


04910 


WR 


04972 


*SETS|G 


04984 


SETS 


-OUTPUT 


05095 


""SEVENS 


05105 


DCMAL 


05107 


SIGN 


TFS 


05148 


MV 


05238 


TRNF 


05334 


TRF 


^'RETURN 


05492 


TRNF1 


05530 


*CHS 1 GN 


05562 


0VR1 



05582 


StAtE 


05766 


FADD1 


05952 


DVDE 


06258 


LN 


06448 


COS 


06640 


CNT 


06766 


*PR f NT f 


06952 


READN 


07252 


D2 


07360 


CHG 


07676 


EX 


0791 1 


SPEC 


07 946 


SIGN2 



05678 


FAOD ~ 


05804 


SUB 


05988 


FDI V 


06296 


LOG 


06486 


*ARCTAN 


06650 


WORK 


06856 


RET1 


06988 


L00P1 


07272 


PER 


07488 


SETFL 


07772 


TRSMT 


07916 


ADDR 


07950 


SUMS 



-O5656 - 


MAGN" 


05840 


FSUB 


06026 


RCPR 


06334 


EXN 


06524 


SORT 


06655 


TRCON 


06866 


WCTR 


07036 


CMCOL 


07296 


D4 


07500 


MOVE 


07862 


STEP 1 


07930 


INPUT 


07962 


SI 



05692 


" FMUL 


05878 


MPY 


06124 


POWER 


06372 


EXT 


O6562 


DUMMY 


06753 


WORDS 


06872 


RFS 


07216 


RET 


07320 


D5 


7 608 


BRNCH 


07882 


0VR2 


07940 


COMN 



05730 


SUM 


05914 


FMUL1 


06190 


AA 


06410 


SIN 


06570 


MVE 


06754 


PRINT 


06908 


FRMT 


07228 


D1 


07340 


MIN 


07652 


DIGIT 


07884 


ZEROX 


07945 


EXPNT 



PROGRAM 80-1, CONDENSED DECK LISTING. 



31000800006049000720000000000461906260640693482630000000000005004900000*36000000 
36OO24O0O5O*26OO0470OO54l6O005450O01 11O0O54QOOOO310O1390O0 1045000 120024049002420 
00 16OOO350O1OO26OOO9OOO2991 7000600014003936000000050049000000 123456789 1234567895 
41O00000000036O0210O05O0490021000O0O000000O0O0000000O0000O00OO0O00O0000O000O0O00 
3600000005003600080005003600 30000 50O3600322O05004900 1280000000000000000000000000 
3600 1000050036001 8000500 3600260 0050049021 80* 1 600079001 6626O0O74001 63250040 200 1 66 
1 1 00 1 630000 1 1 1000 7 90000 1 1 200 1 65OOO0 1 47000 5 60 1 200 3 600 1 5 900 500 45000 4400 1 604 900 00 
01234567891 2345678902 34567890T34567890T24567890723567890T23567890T234"?7890T23555 
456739GT34567890T24567890TB56789GT23567890T2l4l7890T^ 

0083173*100000000270000000500000000099000000000070000000010000000000000000002601 
00 9047 382 3008991 6OO9780O98O26OO 9470050 12601 9399999932O193800OO0 32O19360O00O49999 
00977739903701 983005001 6009780 101 6160 194401 981 210 194401 9372101 9440 1937260 1958008 
10 507 37 1 260 1 949008661 40 1 94402 1 3746009800 1 300 1 40 1 9350OOOO460 1 8900 1 200 1 50 1 9740000 
1 1 2473260 1 2620 1 944260 1 2910 1 262260 1 30601 262260 1 3300 1 262260 1 2500 1 262 1 20 1 2500000 1 1 
01 1977360 12.8601 9581 601 3540 19581 601 52201 959220 15220 1937 329999900000 14999990007047 
0127173130001 30025999999999 oi * 90140801499999000034601 388012001499999000204601 3680 



1 3447312001 59999900000490 14080320 1 974000004901 34801 10 1 52200001490 14320 1 20 1 28600 
14 18730 1 1 20 1 35400001 1 201262000521201 2:1000021201 3O6OOO021 20 1 33000002 1 20 1 2500000 
01491732240128601522460124401 300329999900000140 1 958000004601 91 20 1 200260 1 9680087 1 
0156473330 1959000001 60 19730 19592201 9730 15222601 6470 1522320 197200000220 19730 19394 
163773301 68099999120 1 97 300001 1 10 1 6470000 14901 636O26O 1? 100 1 647 1 10 1 7 1OOOO092699 n 9 
017 1073901 973260 17340 16473299999000002601 8280 17 10440 18000 1974260 179401828 1201 794 
17867 3023299999O000O1 6050230 18234904992999993999901 101 82 3000TO 12008940000 1470 19 
1 8 5 97 3 1 00 1 1 00 1 20 1 935OOO0 1 4 60 10 1 60 1 100 11 00 94 70000 64900 9 3604 2 1 60 1 8 2 800 86 1 4 90 1 8000 
02l42730*575956U2OOO*00654 1590*0056426245590* 340000000 102370 198300500390 198300 10 
022167 34502236021414902 1800360O402O05O032004O2OO00O 32OO4O4O0OOO32OO4O6OOO0O32OO4 

0229O738OOOOO32OO4 1000000320041 50OOO032CO41 8000003200421 000003200424000003200427 
02 3687332004 3O0000O3200433O0O0O320O436O00OO32O0438O000O 160 1075021352600601004264 
0244 17 33024600045649024720220060 1004U0 16004861 34002600630004862 10063000601 1 10063 
02 5 18730 12600491O063043025520044 3U9O25880210063OO060 12 1006300060 12600496006302 10 
02 5927 363000601 210063000601 1 100630000042&0050 1006302600640004 171 600592000001 1005 
02 6657 3920000 1 12006400001 3460? 66001 1001 300592000782 100630000991 1OO63OOOO0426OO50 
02738736OO63O26OO64OOO4321 600SS2000001 1005920000 1 1 200 64OOO0T046027680 1 100 1 300592 
0281473BO2 100630000991 10063000002260051 1006302100629004 35260051 60C6302 1006290042 
02887733260O521OO63021OO6290O42O26OO5260063021OO6290O60I26O05 31OO63021OO629OO6O1 
029607326O0536OO630210062900601260054l0063021O0629O06O126O05^6O063021OO629006012 



53O33736OO551O06301 300 6O10OOD526O063O0O099260064000601 1 10064000001 23OO6300064O32 
031O97395O0OOO26OO614OOO981 605023031 514904992007 10008610 1605023031 81490499200720 
03182730O861O1 6050230321 I4904992O07OOO086IO43033IOOO44326OO586OO6OI I26O326O004863 
0325573699999OO5OO1 10 326O0OO8O120O586OOOBO46O 325401 10O49O338202604682OO496120468 
03328732OOO011 604699000801 60471 10OO5O16O4759OOO022704652O0429430434OOO45614OO435 
034O4730O46O345OO1 100 140043200000460354601 100490361 8026046820050 1 120468200005160 
03477734699OOO7816O471 1OO01316O4759OOO0617O46520OOT326OO894OO43527OO9OOOO51 12604 
0355O73682OO5O61 20468200007 1604699000801 6047 1 1000T0 16047590000827046520043243036 
036237338004444903658016046460365849045440260468200501 1204682OO00516O46990OO7816 
0369773471 1000T31 6O4759OOO0627O4652OO4 1726005560051 62 1005550060 1 1400437000004603 
0377O73814O 1200 16010755 198321 01 075004372 10 1075004372704792004 14260385600491 26005 
038437389OO6O1 1699999OOO0011O3856OOO02120O589O0001460 38 5001 100260058600614210058 
03916736OO6O1 2 100586006012603969005411 605023039694904992^9999008610 1103969000T01 
03989732OO586OOO0146O3946O1 1004304O320O44349041040260406200486260O589006O1 159999 
04O62739OOO0O1 10406200051 120058900061460405601 1003400000001022704952004033400000 
54137731O127O4952004O5340O0OO001O127O4952OO407340000OOO1O23902145O01O02704952OO4 
542117393400O000010827049520060139021570010O340000000108260083000414330082600000 
542847338O0826O01OO39O21670O1O034OOOOOO01O236OOOO0O05OO490O00OO43O436OOO44449O43 
04357738OO 1 604646043804904544026044 100050 11 2044 1000005 369999900 5002604434044 1 32 
0443O7399999O00OO14OO44OOO00O4603826O12OO26O4682OO5O112O4682OOO5116O4699OO08O16O 



64503734711000401604759000522704652004404903826026046820050112046820006516046990 
545787378160471 1OOOT316O4759OOO061 704652000521 600894000521 700 900007 1049999990000 

046527326OO589O465126O4742046823699999OO5OO11O4682999991 20058999999460467601 1002 

04725736O0589O465132999990OOOO1 104742^99991 2005890006146047360 110042000000160494 

54798737000551604851547871604926504762600481008714304896999991 104851000511204947 

548747361 12O4926O0O5149O484OO26O4914O485132999990O00026999990479126OO48104947420 

5495273260083OO4951330O829O00O038O0829OO1O0427016054265588449O511602605O790000O4 

55O25734O5O68O5O7933O507900OO026O5079O5O79490502402605723000OO26O51150507912O511 

55098735000522605721000001505371000022605151050232605470000001105023000652605187 

55172735023260524300000440523205243330524300000260524 305243490518802605755000002 

55245736052790524312052790005226057530000026054940502344053360547033054700000026 

55319735470054754905292026054820547012054820006211054940006012053710006147054080 

55392731200150537100002460542001400490000004405452000993205721000001105721000602 

55465736000000572326000000572149000000060*34000000010238054900010043055480040148 

55538735575305754260572105786260572305788490565203400000001023805490001004405628 

65613734O1481OOOO1O00026O5721O577526O5723O5777490OOO0O3400O00OO102380549O0010048 

55687735000000004905652000000000000000000000*0000000000000000000000000000000*700 

657657351 *50000000^*^9999999!59*T0000000000005 34294481 9676923O76909O 90 90 909T 1111 

05838731 11 11742857142820OOOOOOOO33333333330OOOOOOOOOO26O57230575526O5721O575349O 

059 117 35464000000000000000000000000000000000000000000000000000000000000000000000 



0*000000000000000000000000000000000000000000000000000000000000000000000000000000 
000000000000 1 20 3040 00 2040 SO 8000 3060':O2 1 0040802 1 6 1 00 5 00 15 " 1 20C 1 6021 8 14 200 70i*Ti 282 
008O&l4223OO?0ei726300000000O0506O708O9O0U 14 161815 lSH 2427202428223635203530454 
03632484455 3249465 36C484654&275445 3627 1801 234567891 234567890234567890T3456789GT2 



lb 



PROGRAM 80-2, CONDENSE:.) DECK LISTING. 

31OOO8OOOO6O49OOO72OOOOOOOOOO7346l4924265678348lI+OOOOOOOOOOOO5O049OO0OO*36OOOQOO 
4100O000000036O021000500i+90021000000000O0000000000000000000000000000000000000000 
36O0OOOO05OO36OOO8OOO50O360O30O0O5OO36OO3220050O1+9O0128OOO0O00000O0O0OOOO00OOOO0 
3600 1000050036001 80005003600260005004 90214 i+t 1 6OO07900 1 66260007400 1 6325CO1+O200 1 66 
1 100 1 63OOOO 1 1 1000790000" 1 1 200 1 650005 1 1+7OOO560 1 20036001 5900500450001+1+00 1 601+9000000 
012 34567891 23^5678902 3^567891513^56789072^567 
4567890T3*567890T2^567890T2l567890T2!567890T2^ 

0O76773OOOOOOOOOOOOOOOOOOOOOOOOOOOO0OOOOOOOOOOOOOOOOOOOOOOOOOOO0OOOOOOO*TOOOOOOO 
5081+07362T0OO00O0?od0000OOO^0OO0O00Oof0OOOO000l0000OO000000OO0O0026O1 823008991 
1 7 1 67 3 2 60 1 73401 61+732S9999OO0002601 82801 7 101+1+0180001 9742601 791+01 8281 201 794000523 
01 78973299999OOOO01 60674 lOl 8234906690^9999^999901 1O1823OOOT012O0894O0O0147O191O0 
01862731 1O012O193500001460101601 1001 100947000064 9OO936O42l6Ol8280O86l49Ol8OOOOOO 
02O8l73OO0OOOOO0OOOOOOOOO00OOOOOOOOOOOOO0OOO0OOOO0O00OOO00O00OO0OOOO0*15O23O10O0 
02 1 5^73001 60674 102 1794 90 6690OO891OO86IO26058940055626O6OI 6OO55626O0586O04 1426008 
022277394OO42O27OO9OOOO51 64702302001 00260291 40042026029560051 61 60 302402302490291 
023OO736O14O0432OOO0O46O2394O 12OO17O32140OO0O4702394O020O26029140O42626O29560O51 
O2373736I 60302402394490291 604 302414O044S49O2426O4 3O26O8023O 1 1 7O5780OOO0O4 3024580 



02446730445490272201 20058600001460222201 10043025020044649025320 160674 102525^9066 
025 197390004810089104 3025520044 94 90257602601 9780042627030320054 11703 120000001 502 
0259273301 00001490221002601 981004262602667005 16260267200541 160674102667490 645059 
0266573999^999901 102667000701 1O2672OOOTO12O198lOO00l4602644O1 1001706022000501200 
027387358600001460222201 1004 302778004464 90280801 60674 10280 1490669000481008910430 
0281 17328280044949028880430286400445260197800426270303200541 2601 9780061427030320 
0288473O55 13600000005004900000000000000340000000102 16067410295149067 100486459999 
02957730390573 1001003400000001081 10295600070120291400001460292801 100499999900000 
030307300380040200400260 307403031 1203074000093899999004001 10307400080 120 19780000 
03103738460 306801 1OO42O026O1981OO42626O3167OO54116O674103 1674 9065 10599990048101 1 
031 7673031 67000701 20 19810000 1460314401 100420026047420042026032730052126032780051 
032497361 606741032734906690999999999901 10327300070 110327800070 120474200001 460325 
0332273001 1002604742004322603363005062601 939999993201 938000003201 936000003201934 
033957 3000002 60 3464005 161 20 346400070210346301 937 1606741034594 9066 9O0475259999O26 
0346873046950051 61 2O4695OOO7O21O4694O19351301933OOO0516O35490475221O3549OOO9926O 
354 1 7335 5 6999 994 99999902603 6220^2^2^362200070 2 1 362101 937 1 60 674 1 03 61 74 90 66900 
03614734752999990490467204403664047503304750000004904672032047500000049046720260 
03687733748005 1 1 1 203748000702 1 037470 1 9391 60674 1037434 90 6470047525999904904672026 
37 607 30 38 22005 11 f 20 138 2 20~b6702lo 382101 939 160674 i 38 174 90 6490047 5259 99904 904 67 20 2 
0383373603896005 161203896000702 10389501 9391 6O67410389149O647O0475259999O49O4672O 
039O67326O397OOO51 61 203970000702 10396901 9391 6O6741039654 9O645O0475259999O49O4672 



0397973O26O4O44OO5 161 204044000702 104043019391 6O674104O3949O649O0475259999O49O467 
04052732O26O4118OO51612041 18000702 1041 1701 9391 606741041 1349065100475299999049046 
0412573720 160674 1041 5149O669O0O63O0O881O1 60674104 18149O651O0O63O04752O16O6741042 
04198731 149066 90O47526063004904672O2604326005I 1 120432000070210431901939160674104 
0427 1732854906670047520475201 6067410431 549064900475299999O16O67410434549O663O047 
04344735204752O49O4672O 1 60674 10438 34 906670047520475204 9046720 1 60674 10442 1 4906650 
044 1 7736475204752b49046720 1 60674 104459'+ 9oT6lo04752047lT64 9046726Y60 - 674 1 044974 90 6 
0449O7361O0475204752O49O4672O 16O67410453549O657O0475204752O49O4672O16O6741045734 
04563739O655O0475204752O49O4672O1 60674 10461 149065 900475204752049046720 1 606741046 
04636734 94 9O6530O47526475204904672O4999999OI 60674 104695490669059999047520 1 103363 
047O973OOO0812O4742OOO0146O3352O1 1OO42OOOOOOOOOOOOO04672035580363203684037580383 
047827320390 60398004054041280422604360043980443604474045120455004588046260466400 
0485573OOOOOOOOO33O485"4Ob00026O575lb5763330574260000260574 1057731 605732000001 605 
0492873775OOO0O44O4972O4861 15O5774OOOO233048610000O14048630O05546O53080 1200 140 i(8 
05OO17363OOO0O47O5354O1 100140486300004460543401 1OO16O51O30485416O5O980574122O5O9 
050747380486322050980486325 9999999999i 1051030000 1 1 1 0509800002 14O5O980573947O5O92 
051477301 100260525905 1031 605777OOO0522O5777O48631 6O52350576322O5235O577722O5235O 
0522O73577721O57399999916O52540574325O5743OOOO01 1O5259OOO01 110525400002140525405 
052937375147O5248O1 l664ll05328"05733490564001 5O5751OOOOO26O5731O57754214O4863OOO04" 
0536673470543401 1001 605259048541 6O52540574322O5254O486322O5254O486349O5248026O57 
054397334O57564405494O486316057310O02O33O48630O0O0330573200OOO25O57350486325O573 



055 12733O486233O5733O0OOO26O57390577533057380OO0O1 6O55890485416O5584057432599999 
6558573999991 10558900001 1 1O5584OOO0214O55840575147O5578O1 10O4216O566305735430568 
0565873405735110566300002^905652026057 1^056631 20571^00002269999905775/+ 2000000000 
0573l73OOOOOOOOOOOOOOOOOOOOO0*70707O70700OOOOOOOO 30OOOO026047420042626O58440051 6 
O58047326059I 900541 160674105839490669000630399990430586600446490589601 6067410588 
058777394 90 64 900063059999016067410591 94 90 6470^99990063001 105844000T01 10591 9000T0 
0595073120474200001460581 60 1100430598800446421 6067410601 149064700089 139999042002 
06023736061 10005 1 626061 8400556260631 70055 1 260644400426260644706444 1 6O6741061O549 
06O96730 66900 4752"9999902404752O086l46O6422O1 20043061 560044649O61860 1 6O6741061794 
061 69739064900475299999026062 16061 102606262061 10249999900861 460632401 200 I60674l0 
062427362574906690006309999901 6O67410628749O649O0O63O04752O1 6067410631 7490647059 
06315739990O63OO1 10621 6000101 10626200010 110631 700010 12O644700O0146O62 1001 1001106 
063887311000010120644400001460607001 100422 1063 1 60644449063840000000701 607 1440779 
0646173049067 3001 607 144078344 90673001 607 144083344 9067 3001 607 144085744 90673001 607 
0653473144089104 9068 340 1607 1440 94 9049068 3401 607 1440952249068 340 1607 1441033449068 
06607733401 60714411 324490683401 60714411 3444 90683401 607 144120644 9068340 1607 1441 20 
066807 3844 90 68 340 1607 1441290649068340 1607 14412938490 68 34026067970000044067860679 
0675373733O6797O0OO026O6797O679749O6742O26O7441OOOOO26O683306797 12O6833OOO0226O7 
0682673439000001 507089OOOO226O6869O674 12607 188000001 10674 1O000526O69O50674 126069 
0689973610OOOO44O695OO6961 33O6961OO0OO26O6961O696149069O6O2607473O0OOO26O6997O69 



06972736112O6997O0002260747 10000026072 1206741440705407 18833071 88000002607 18807 18 
07O4573^B4^O70ToO26O72OOO7 1 881 20720000002 1 1 0721 200000 1 20708 90000 14707 1 260 1 200 1 507 
07 1 1 873089000024607 1 3801 400490000004407 1 700O09932074390O0O0 1 1O7439OOO0O26OOO0O07 
07 191 734412600000074 3949000000000t 34OO0OOOO1O238O72O8O010O43O7266OO4O1480747 1074 
07264737226O7439O75O426O7441O75O64 9O737O034O0000001O238O72080O 100440734600401481 
07 33773O0001O0OO26O7439O749326O744 10749549000O0O340000O001023807208O010O480BO0O0 
074 107300004 907 370OO00000OOO0OOOOO0OOO0t0O00OO0OO00O0O0O00O0O000O00OO0OtlOO00OOO 
07483730 U0OOOOOOO9^t99999999^9tlOOOOOOOOOOOOlf 34294481 9076923O76909O 90 90 90911 11 1 
07556731 111114285714282OO0OOOOOO33333333330OOOOOO0OOO26O7769000OO1 10761 300005260 
0762973764 90761 3260778 1000001 10761 3OOO0526O7685O761 32607764000001 10761 3000052607 
077O273721O761 32607776000001 1076 1 3OOO0226O7788O761 331000750748728000000000029000 
077757 30000000490 0OOO044078220747 1330747 1O0O0O4907834O32074710OO001 5080510000 116 
0784873O8O61O747 1240744 10747 34 6O8050O120O46O793001 100310744307464310746407432310 
0792 173743207443220747 307441460717OO140O2108O61O747344O799O0747115080510OOO21407 
O79947347.3OOOO746O8O5OO1 1004707 17001 2001 507463OOOO033O7464O0OO02 IO7439OOOOO25OOO 
08O677399O74391 607376071464708 186014001 10744100001 4708 142014001 60721 600001490721 
0814O738O26O7439O74381 5O7432O00O13307433OO00O49O7146O4607346O1 20O33O74390OOOO26O 
082 1 373747 3O744143O83O2O74323107432O743325O74390672912074730OO01 47082220 14001 607 
082867321 6OOO024907298O32O7432OOOOO26O7441O747349O7 14601 6O73760714623O7439O747 14 
08359736O7 34601 200430842600084 160745200001 32OO0850OOO02607439O00924908450O16O745 



08432732OOO002607439O0O91 2 107441 074734608498014002 107441074524707 1460 14004408530 
i38505730744 11 6072 16000044 907298021 0744 107452470727801 300 16072 16000534 90721804308 
0857 87361 8074641 6O7 3 7 60 74O2r6O72r6OOd074907378O1 60737607 14628000 9 1 74 392 9000 9 1 7 
086517347J25OOO99OOO9143O8734OOO8346O7346O12O032OOO84OOO0O26O7439OOO9116O74520O0 
087247 30O49O8758O26O7439OOO9O1 6074520000 1220744 1O747346O8826O140O2 10744 107452470 
08797737 1460 1 4001 60721 60000549072 1 804408806074412 107441 0745244088820744 1 1 50721 60 
0887O73OO0649O7298043089O2O74414908862O49O7358O43089420746416O73760718249O7346O4 
0894 37 340899807471 1607376089861 60721 6OOO084907378O33O747 100000260744 10751 6260743 
90 1673307471 1 3074730005044091 1400099140009700000460908201 2003200097000004309138 
09O8973OOO981 6092400742749091 7401 1OOO98OOO0543O9O94OOO9833O7426OOOOO 15O7425OOOO0 
091 62731 6O924O074261 6O936O0742626O9389O7265 1 60920700008 1 6O7473OOO0T1 1O7473OOO022 
92 3 57 32000l)doy2+7^^ 146094 340 1200 2 60 93000 92402 1 0000 00747347 

0930873093420 12002609336093003300000000001 10924000002320000000000 1 10936000001 310 
0938 173O0O00O0OO220938907341 150747300001 12074720000 149092340260744100097 13074730 
0945473OOOl326obS^O^ 

09527731 100001 150957000004146747300003460960201 100310746407475310743207464490718 
096OO732O14O7473OOO084 70965801 100 160721 6000091 6O7376074O249O7378O1 40747300002470 
6 967" 37 3 97T40 11 61)T66~7 2T6OOOT0 1 60 7 37 60 97 f44 907378023102730747 1330008 360660 T 1 0747 30 
09746730091 2609809074731 20747300008260979207473320000000000260744000000490984600 
09819730004410246000992107440102823207440000002107440074133307440000002207440102 



98927 3824 60996 60 1 400240743907493 1 607376071 824607 3580 1 200 1 60995 100004 2 30 74400 7 44 
099657 302607452000 9026074311 02921 61OO49TO30223O7452074314410038O0O9932O0O90 00000 
TOO 38732 1 0009000000260743100090 1 1 10049000T0 1 20995 1 0000 1 47 1 00020 1 2003207423000002 
T0 1 1 1 7330741*607^3 1250009ltt^ 1 2 

TO l8i+73O7463OOO0 1250744 1067294910 1580320743200000260744 1074634907 146032074400000 
T02577304909834T591 54943250000000397 1067 1 507657497503Bl 602231 584" 1 341 6775006283 1 8 
T033073527O431O366074643iO7432O748649071 82O14O7473OOO0331O7432O74644707 1 820 1 300 1 
T040 37361O4370OOOO251O435O7471 3307471OOOOO14O7473O0O0O461 10660110046105580120016 
T0476731 05330747 1211 0533074731 6O7463OOO0O33O7464OOOO026O747 100000 1507464000 10330 
TO549737465OOOOO14O74650OO29471O69OO1 3001 30747 1 000061 5000900000T2207471 113222607 
TO6227345200098280OO910747 129000920745225 10893000 99260747 100090 32104370000023074 
T0695737 107471 260745200091 161O76107559161O735OOO0423O7549O745226O744 100000220744 
T076873100091 230744 107452 1 110761000T0 12 107350000147 107500 1200260744 1075 172207441 
T08417300091 230744 10747 144 109061043744 10894 108933200091000002 100091 1 1 29344 109421 
T091473O4363200091OO0O0210O0911 13O316O7441OOO0125OOO92OO4OO431 102200082 120744 100 
TO98773O01 3 10008200083250009106729491096603200082000002607439000894407 182 1043549 
T106O7307158026OO0910760014074730OO08461093001 1O026O7439075981 61 1 1440743 121 1 1 144 
Tl 13373074731 500O000000132074320000O280OO9007439290009007471431 12660008214074730 
T12067 30004461091801 1002607471000903210436000003207464000004910558031074321 1 3044 
T12797391 1O46?4O4l95OOT57O796327785398l600t5O0000000l6l 141807518491 13560161 14180 



1 1 352/ 37$ 30^31 138807U6U310?43207^"?5^907 18201407473000584? M 36801 1002307530074711 
T 14257340747 30005 347 11 47 201 30047 11 93201 200431 1932000823300082000002600081075991 1 
Tl 4987 30747 3000B0261 152607^733200000000001 107^730005 1 261 1562074731 1000000005 1461 
11571731932014001 IO7473OOO6926I I6I50747326O745COOOOO32O744 200000161 1675T1 9972607 
ll6447343yC7601l6l 166IOOO572IO7439OOOOO2307439074502607439OOO9OI 1 H675000T112116 
T 17 177361OOO01471 166401 201 1 107430000f0230743807438320008 10Q0O026074390008825O744 
Tl 7907 32004004407 1 820747 1 2400088075 1 547 1 1 8520 1 200 1 20744 1 0005 14911 900026074520008 
Tl8637392800092075 172.900692O74522607439OOO90320744 100000 110744 10005 149071820 1 607 
1 1 9367321 6000T1 1 60737607 1 82440721 8074/1 1 5072 1 6000024 90729850009326427500255491 80 
T20097 350 17421 11 995072951 7 36702543935748C66273O884 31 !51 29277601 5 1209300001491209 
T20827360 161 209300050330746^00000431 21 52074641 6073/6574021 60721 6000T34907 3780441 
T2 1557322080747 1330747 1000001 60737612208 160721 600014490729801612551^2861 15074630 
T2228730001140746400015461228801 3002107471074711 1 1255150011491222002607439074712 
12301732074 390757928000890743929000890747 1260747 100090320747 10000032074620000023 
I2374730747 10747 1260745200089210747 10747 12607441 07600 161 2455575401 61 2441000662 10 
12447737441000002307441074522607441000891 11 245500010 ! 2 1 244 100051 4? 1 244401 2002307 
T25207344 10747 1 2200C890747 12.60747 100000220747 10008943 12784 1209323 12S0 50 74/ 32 1000 
12593739907471240009707&01 310743207486460718201200160744100003251 209100099250009 
T 266673900400431 27280008 7 3100C8700088 1207441 0005 5 250009806729491 2672032O0C870000 
T27397 3044 127 641 2091 32000 94000002607439000 944 907 18201 50OO79OO00O2 3075 300747 12607 



"128 127 347 100089320747 100000230751 80747 3491 2588500000000005693 1471 80 5T38629436H2 
T28857 307944 1541^6230258509292607441 0747 326074390747 149071 820261 300407188261 29801 
72958733OO4121298OOOO0326OOOOOO7471261 30160721227000000747 3490000000000000000000 

otooooooooooooooooocoooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

0000000000001020304000204060800030609021004080216100500151020060218142007041 1 282 
008061422 300908172630000000000506070809001214161815181 12427202428223635203530454 
03632484455324946536O4846546275445362718O1 234567891 2345678902345678Q5T34567895T2 



PROGRAM 80-3, CONDENSED DECK LISTING. 

310008000060^9000720000000000894? 2472962 1246274770000000000005004900000*36000000 

41000000000036002100050049002100000000000000000000000000000000000000000000000000 

36000000050036000800050036003060050036003220650049001280000000000000000 

3600 100005003600 I8OOO5OO36OO26OOO5OO4 900902* 1 6OOO790O 1 66260007400 163250040200 1 66 

1 100 1 63OO00 11 1000790000 1 1 200 1 65OOO0 1 47000 560 1 200 3600 1 5 900500450004400 1 6049000000 

01234567891 234567890234567895T34567890T24567890Tn567890T254"67890T254"57890T234"5B. 

4567890T34567890T2^567890T2l5678yG7234^78907^ 

00767730000000000000000000000000000000000000000000000000000000000000000*70000000 
50840730210000000500000000099000000000010000000010000000000000000007043012140044 
069 1 37 35430 1 20200447260 1 9900 55 1 260 1 140054 1 260 1 0440054 1 260 1 34000426260 1 3370 1 340 
009867 3 16024910 10094 90246000630999990 16024910 10394 90 24OO0O63O59999O1 602491 010694 
10597390242000630004810 16024910 1039'+ 9O238O999990O63OO1 10 104400'070~110"l099000 TO 12 
Oil 32730 13370OO0 1460098601 100110 10 1400010260 10440 10 14 1 20 1 3400000146009740 1 100 1 70 

O1205732032OOOO026O 133700426260 12800055 12601 32 1005462601 3700055 12601 365005462499 
127873999009004601 34201300160249101 3214902460999990088 10490 1 3720000000 1 60249 10 1 
Ol 351 73365490244099999999990210 127901 337210 13690 1337 1101 321000701 10 1365000T0 1201 



5142473337OOO0 1 4601 2740 1 1002601 5390055 1 2601 5690055 1 2601 54400546260 1 57400546260 1 3 
01497733700426260 134001 337 16024910 1539490242099999999990 160249101 569490242099999 
1570739999901 101 57400070 1 101539000101 101 56900070120 1 340000014601 5 1601 1001 10 1544 
0164373OOO7O26O1574O154412O1337OO00146O15O4O1 100260133700426260173100551 16024910 
5 1 7 1 67 3 1 7 3 1 4 90 24 6o'99~99 950 88 1 2 1 1 7 30 1 3 3 7 1 20 1 3 3 700 00 1 4 60 1 7080 1 100260 1 33700426260 
01 78973 185 1005461 6024910 1821490244000630004810 16024910 I85 14902420999990063001 101 
518627385 1000701 201 337OOO0 1460 182801 1004901 90204301 92200450490 1994O260O8980O4262 
1 93573702 1 3000541 26008980042627021 30005462600898006142702 1 300055 1 2702222004 1436 
02OO873O0O0OOO5OO49OO0OO00OOOOO260O894OO42626O2Q7900541 1602491020794902420^99990 
02O8173O481O1 102O7900070120089400O0146O2O56O1 100 4 2000 380-040 20 400 2 60217202 1 29 
02 1 54731 202 172000093899999004001 102 1 7 2000B01 20089800008460216601 1004200000016023 
022277377OOO051 60228 1022 171 6O23560O47626OO481OO87 14302326999991 10228100051 120237 
023OO737OOO0l 12023560000 149022700260234402281 32999990000026999990222 126004810237 
0237373742OO7O1 6O28940335249O248OO 16O28940 38964 9024800 1602894041 364 90248001 60289 
0244673404472490258401 6O289405O5249O2584026O2547O0OOO44O2536O25473302547OOOOO26O 
025 19732547025474902492026031 9100000260258302547 12025830000226031 8900000 15028390 
0259273OOO226O261 902491 2602 938000001 1O2491OO00526O265502491 26027 1 100000440270002 
02 6657371 1330271 100000260271 10271749O2656O26O322300000260274702711 120274700 00226 
0273873O3221OOOOO26O2962O249144O2804O29383302938OOOO026O293802938490276O026O2950 
O28 11 7302938 1202950000021 10296200000 12028390000 147028760 1200 15028390000246028880 



028847314OO49OOOOOO440292OQOO9932O31890OOOO1 1031 890000026Q0000031 91 2600000031894 
029577 39OOQOOOO0O*34OO0OOOO1O238O2958OO1OO43O 301 600401480322 1Q322226031890 325426 
6^3O73O3f910325649O31 200 34OOOO0001023802958001O0 

031O373O324326O31 91O324549OOOOOO34O0OO0OO1O238O2958O01OO480?OO00OOOO49O31 2000000 
03 17 673OOOOO00OOO000O0O*OOO0OOOO0OOOO0O0O0O0OOO0OOO00O0*7O00O00O0 1*000000 00 99*59 
0324973999999^9*TOOOOO0OOOOOO5 34294481 9076923O76909O 90 90 909T1 1 111 1 1 1 1T42857 14285 
033227 3OOOO0OOO0"33333333330O0OO000O0044O338403221 33032210O0OO4903396O3203221OOOO 
0339573O1503613OOO0116O3623032212403191O322346O3612O12OO4603492O11OO31O3193O3214 
034 687 33 1 032140 31 82 3103 1 820 31 93220 3 2 2 30 31 914 60 2 9 2001 40 2 1 3 6230 3 2 2 3440 3 5 5 20 32 211 
035417350361 3OOOO214O3223OO00746O361 201 10O47O292OO120O15O3213000O033O321400OOO21 
036147303 189000002500099031 891 6031 2602896470374801400 11031 9100001 47037040 1400 160 
036877 32 9660000 1 4902 96802603 1 890 3 1 88 1 503 1 8200001 3303183000004902896046030960 1 200 
0376O7333O31 890OOOO26O3223031 914303864031823103182031832503189024791 203223000014 
038337 370378401 4001 602966000024903048032031 820000026031 910322349028960 1603126(528 
390673962303^^^ 

0397973249O4O1 20 16032020000026031890009121031910322346040600 140021031 91032024702 
040527 38 96014004404092031 91 16029660000 44 90 3048021 03 19103202470 30280 13001 60296600 
041 2573O0349O2968O43O41 80032141 6031 26031 521 6029660000749031 2801 6031 2602896280 009 
04198731031892900091032212500099000914304296000834603096012003200084000002603189 
0427 1 7300091 1 603202000004904 320026031 8900090 1 6O32O2OOO0 1 2203 1 9 10322346043880 1400 



043447321031916^2^70289601400160296600005490296804404368031912103191032 
0^1773^03191150296600006490304804304464031914904424049031080430450403214160312 
0449O7360293249O3096O44O456OO3221 1603126045481 6029660000849031 280330322100000260 
04563733191O326626O3183O322113O32230OO5O44O4676OOO9914OOO97OOO0O46O4644O12OO32OO 
04636730970OOOO43O47OOOOO9816O48O20317749O473601 1OOO9800O0543O4656OOO9833O3176OO 
04709730001 5031 75OOOO0 1 604802031 761 604922031 76260495 1030 1 5 1 60476900008 1 603223000 
047827301 11O3223OO00222OOO00O322346O4784O1 3001 2047690000 146049960 120026048620480 
0485573221OQOOOO322347O49O4O 12002604898048623300000000001 1O48O2OOO02320OOOOOOOOO 
0492873110492200001 310000000000220495103091 150322300001 12O32220OO0149O4796O26O31 
50017 391000971 '30322300^32^^ 2 9 320 2 603 1 9 1 32 2 3 2 60 3 1 8 90 32 

05O74732149O2932O0OOOOO0OOO000OOOOO0OOOOOOOOOOOOOOOOOOOOOO0OOOO0O0OOOO0O0000O0OO 

0*000000000000000000000000000000000000000000000000000000000000000000000000000000 

0000000000001 02030^ 2 1 8 1 4 20 0704 1 1 2 8 2 

O080614223O09081726300O00OO000506O70809O01214161815181124272024282236352O353O454 
03632484455324946536048465462754453627180123456789123456789023456789013456789012 



PROGRAM 8Q-4A, CONDENSED DECK LISTING 



3100080000604 9OO0720OO00O0OOO0440825345 1O25925445OOOOOOO0OOOO5OO49OOQ00*36OOOOOO 
41OO0OOOOO0036OO21OOO50O1+9OO21OOO0OOOOOOOOOOO00OOO0OOO00O00O0O0O0OOO0OOO0OOOOO0O 
3600000^00500360008000500360^3000050036003220050049001280000000000000000000000000 
3600 1000050036001 800050036O026OO05OO4900898t1 600079D0 1 662600074001 63255040260 1 66 
11 00 1 630005 1 1 1 0007 90005 1 1 200 1 650005 1 470005 60 1 200 3600 1 5 900500450004400 1 6049000000 
1 2 345 67 8 91 2 34 5 67 8 95 2 345 67 8 96T 34 ~5 67896! 245 678 95T23567895^T2l4"67895T23557895T234'5B^ 
4567895T 34567895 n456789BTI35$78*TI31i678^T2'35?7890T3355589flT135557901335Bl7B*O 
5O76773OOOOOO0OOOOOOOO00O0O000O0OOOO0O0OO.O0OOO00OOOO00OO0OO00OOOOO0OOO0*T0OO00OO 
508407352T000000050500000009^5000000000T00000005 100000000000000001 61064750921491 
509 137305965069050481 0430097000447 161064750963491 0496506905088 10 16091 7 lOOOOO 1609 
50986731 830500 12600586004262601041004861 60059500051450 1062999992600604005954901 1 
51059731201 10104100051 110059500051 1 20058600051 460 10300 1 1004826006070060426006100 
5 1 1 327306041 7049480005026005660057 1470 1 31800400260058600426260 1 20200486389999900 
1 20573400 1101 20200080 1 200586000B04601 1 960 1 100260088500426270944200541 2600885004 
5 127873262709442005462600885006l42709Wt20055 1482600586004261 60059500051 161064751 
5 1351 73365491059650740508510 161064751 395491059650750508610260 14960055 1260 1738005 



6 1424735 12601 763004861 6106475 1461491059650630508410 16106475149149104965063059999 
51497730460200001 100240059506604470 15900 130046020000 120026O06O7006O426OO61 000595 
6 1 570731 70494800050490 1 6260260060700595260061 000604 1 70494800050260 1 6780057 1 260 1 7 
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0616973609651561 91490954C599999999902606257061 91 12062570005226062640625726062840 
56242736257440627899999339999 900 000490609603299999000004906096000220061000607260 
5631 573057 10055 12600897004261 2006070005 1460639201 200210057000897 12008970005 14906 
5638873336021005700061042260644800486120644800001210644800601 1599999000002600897 
064617300426260650100551 12O650100O5244O65569999926O654906501 11065490005216096516 
56534736549490960099999508610210650000897120089700051460649001 100499999900016008 
56607739100600260664900486260089700426430665899999490670202606681066494506690999 
0668073994 90670201 1 008910005l 1 10664 90005l I2008970005l460 663801 100425445570065415 
66753739000000000000003300000000000+^2634400455959006803670000003300000*59006258 
56826736441 59454400000000003300000*B2645400625859005945620000003300000*4"95544006 
06899735415900646245440000330 00000 00000*1+35655626341 55630063455954003300QOOtB54l 
0697273590000000000000043564546460*000000000000006263440045595900000000000063005 
07045739416349560*34000000010234000000010239667410010027085360060434000000010239 
071 18730678300100160965 107151490962008584006600390 945100 100 340000000102390 68 1900 
671 91731001 6O9651072T74 90 962008584006700390945100100340000000 102 390 685500100 1609 



072647365l0728349O962O085840o68OO39O 945100100 340 000000102390 689100 10027085360089 
573377 31 340000000 10234O00O0OO10239O6933OO1001 60965l0739749096200858400 6500390 945 
074 1073100 100 340000000102340000000102390696900 100390700 100 100340000000 1022600897 
07 1 +8373OO891 26075^700491 260758800526260764200531 26076960053627085369999934000000 
07556730 108 16096 5 10758349O962O0858 49 9999O39O94 5 10010034000 000 1 08 160965107637490 
0762973962008584999990 390945 100100340 000000108 160965 10769149O962O0858459999O39O9 
077O273451OO1OO34O0OOOO01O21 1O7547O0O021 1075880OOT01 10764200010 1107696000T0 12008 
077757397OOO0146O7536O1 100499999901 1081 7500001 2600753081 752600756006042 60075 9008 
078487391 2600762004261 60965 10788549O96OO0O78o0o65OO16096510791549O96OO0079O0O670 
0792 17301 60 965 1079454909600008000066001 60 96510797549O96OO0081O0O70O0 160 965 108005 
07 994734909600008200068001 60821 8080324908 1640260058600426260 80620048638999990040 
08O6773O1 108062000B01200586000B0460805601 1001 108 187OOO0 1270822400526270822400531 
08 14073270822400536499999900000 16008260000016008300000 13800751004001 1081 8700001 4 
082 1 373999999 0000026083440822326006 3000891 14006300000 7460829201 10026005860063049 
082867 3083040 16OO586OOO0716O83390O76O1 60965 1083394 90960099999^9 9 9 90 110 8 3 3 9000 T0 1 
08359731O8344OOOTO 120058600001460831 601 100 1 608218084 144908 16401 20063000007460824 
0843273801 1004200 00003800402004002608488 8445120848800 0093899999004 001 1084 880008 
085O5730 120088500008460848201 1004 -20000260083008535330082900000380082900 100420000 
085787 3000000330857400000260 947 1O94833309462O00OO26094610949316O9452OO0OO1 609495 
0865173OOO0O44O8692O8581 15094940000233085810000014085830005^46090280120014085830 



087247 30000470907401 100 14O8583OOO0446O91 5401 1001 6O8823085741 60881 809461 22088 1 808 
087977358322O8818O85832599999999991 10882300001 11O8818OOO0214O88180945947O8812O1 1 
887 07 3002 608 97 908 8 2 31 6O94 97OOO0522O9497O858 3 1 6O8 9550948322O8 955O949722O 8 9550949 
0894373721O94599999916O89740946325O9463OOOOO1 10897900001 1 10897400002 14089740947 1 
0901673470896801 100430904809453490936001 50947 10000026094510949542140858300004"470 
90 8 97 3 915401 1OO16O89790857416O89740946322O8974O858322 O8974O 858349O8 968O 260 94540 
091627 394764409214085831 60945 100020330858300000330945200000250945508583250945308 
0923573582330 9453OO00026O94590 9495330945800000 1609309085741 609304094632599999999 
9 30 87 3991 10930900001 1 1O93O4 OOO02 1 40 9 3040 947 1 470 92 98p_1 10042 1609 38309 455 4309 4040 9 
09381734551 1O9383OOO0249O9372O26O 9434093831 2094340000226999990 949542000000000000 
0945473OOOOOOOOOOOOOOOO0O0*7O7O70707O0OOO0OOOO3OO0O70l6lOO547O5 12490964001610054 
095277 3105564 9096400 16100541 10564 90 96400 16100547 12964 90 964001 6100 54T 163249097440 
09600731 610054722 12490974401 6100547224449097440260970700000440969609707330970700 
0967373OOO26097O7O97O749O9652O261 035100000260974309707 12O9743OOO02261O3490OOOO1 5 
0974673099 990 00022609779096512610098000001 1O9651OOO0526 O981 509651 260987 1 00000 440 
O981 97 398600987 1 330987 100000260987 10987I490981 6026103830000026099070987 1 1 2099070 
0989273OO02261O381OOOOO261O1 220965 14409964 1009833100980000026100981009B490992002 
09965736101 101009812101 10000021 11O12200O0O12O9999OOO0 14710036O1 2O015O9 999OOOO246 
700 387 3 1 00480 1 4004900000044 1 00800009932 1 34900000 1 1 1 349000002600000 10351 2600000 



TO 1 1 1731034 94 9000000000*34000000010238101 18001004310176004014810381 1038226103491 
101847364142610351 1041 649102800340000000 1023810 11 800 10044 102560040 148T0000 100002 
1025773610349104032610351104054900000034000000010238101 180O10048050O0000O0491028 
T03307300000000000000000000004:OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOtTOOOOOOOOltDOOOOOO 
104037 3099*9999999999*10000000000004" 34294481 9076923O76909O9O9O9Q911 1111111 1T4285 
104767 371 4282OOO0OOOOO33333333330OOOOOOOOOO44 10544 1038 133 1038 1000004910556032 10 3 
10 54073810000015107730000116107831038 12410351 10383461077201 20046106520 110031 1035 
106227 331037431103741034231 103421O353221O3831O351461008O0140021 10783103834410712 
106^57310 381 15 107730000214 10383000S746107720110047 100800 1200 15 103730000S33 103740 
1076873000021 1 03490000025000991 03491 6102861005647 109080 1 400 1 1 1O351OOO0 147 108640 1, 
10841 7 3400 1610 12600001 40101 2802610349103481 5 1034 20000133 1034300000491 00560461025 
10 0147 3601 200 3310 3490000026103831035143110241034231 10342 1034325 10349096391 2 10383 
100377 300051 47 lOOifi^0 14001 610 126000024910208032 1034200000261 351 1038349 100560 1610 
1 10607 32861005623 103401 038 1461 02560 12004311 148O0O84161O3620000132OOO85O00OO261O3 
111 33734000092491 11 7201 61O362OOO0O261O34 900091 2 110351 1038346112200140021 10351 103 
112067362471005601400441 125210351 16101 26000044910208021 1035110362471018801300161 
11 27 07 30 12600003401 01 2804311 340 10374 16 102861031 21 6101 26OOO5749102880161028610056 
1 13527 32800091 103492900091 10381 250009900091431 14560008 346102560 1 2003200084000002 
114257361034900091 161O3620O00O491 14800261034 90OO9O161O362O0O012210351 10383461 154 
114987380140021 10351 1O362471OO56O140O161O126OOO05491O128O441 15281035121 10351 1036 



11571732441160410351 151O126OOO06431O2O8O431 16241035 1491 1 58404910268043 1 1 63410374 
116447 316102861009249102560441 1720 10381 161028611 708 161 01 260000849102880 33 1038 100 
11 717730002610351 10426261034310381 13103830005044 11836000-91 40009700000461 1804012 
117O07300320009700000431 186000008161196210337401 180601 10009300005431 1316000 98331 
11 8637 30 33600000 15 1033500000161 1 962103361 61 208210336261 21 11 10 175 1611 J2 . '000081 510 
H93673383OOOOIH 1O383OOO0222OOO0O1O383461 1944013001211 9290000146121560120026120 
1200973221 1962210000010383471206401 200261 2O581202233OOO00OO0O01 1 1196200002320000 
120-2730000001 11 208200001 31 0000000000221 21 11 1025 115 1038300001 121038200001 4:1 1956 
12 1557 30261 35 10OO!7131O383OOO05 320009 10000026 10 349000 9849 10092026 10 35 1 103832& 10 
1222873349103^14 91 00920261 2310 10098261 22861 23 10 121 2236000032600000 10 381 26 1232210 
1230 1731 222700000 103834900000000000000000000000000000000000000000000000000000000 
otooooooooooooooooooooooooooooooooooo 000 0000000000000000000000000000000000000000 
000000000000102030400020406080003060902100408021 6100500151020060218142007041 1 2 8 2 
008061422300908172630000000000506070809001214161815181 1242720242822363520353045^ 
036324844553249465360484654627 54453627 180 12 34567891 2345678902 345673 ;01 345678 9012 



progra:: 3q - a, condensed deck listing. 



3 1OOO8OO00604y0OO72OOOO0O0OO027 176051 7900 188O^230OOOOOO000OO05OOif 900OOO* 36000000 

4 1000000060036002 100050049002 loooooooooooooodoboooooodoooboooooooooooooooooooooo 
36000000050036000806050036003000050036003220050049001280000000000000000000000000 

3600 1000050036001 80005003600260005004900932* 1 60007 9(50 1 66260007400 1 6325&O4O200 1 66 
1 IOOI63OOOO1 110007900051 12001 6500051 47000560 12OO36O0 15900500450004400 16049000000 
01234567891 2345678y&234567895T34567890T2456789DT23567895T23 
= 4567890T345673o0T2456789DTH567890T23567895TD4"5789l5T234"5B895T^^ 
00767730O0dOOO000O000O00OO0000000O000O0O0000O000O00000O00OO0OOO000O0O00tTOOO0000 
008407 3O2TOOOOOOO50OOOOOOOO9950OOOOOOOOTOOOOOOOD 10000000000000000550044564562005 
0091 37355663004 1475945450*1600589000502500589004561 501 29300001 160041450000360075 
5098673IOO5OO26OI 14900 541 1601154007602100414007632400426007754601066012003900899 
105 973001 0048360075 100500260 11 1300501 160060100051240060 199999460 13600 1200 160284 
011 327330 1 1494902792999999999901 101 149000T0 1101 154000T01 100 60 1000012400 60 1004264 
012057360127201 1001401 154008404701 1020 1 300360075 1005001 60 1 1 5400760490 1 1020430 1 23 
12787 32004574 901 38004101380000001501293000092601 149005461601 1540O76O36O075 10050 
0135173O4901O66O1 101 1 13000524901 1680260 158300551 160060400051260151 10O5012601475O 



014247 30501 36007 51 OO5OO36OO7 5 100500 160 158800760240060499999460 17700 1200260060 100 
01497736041601 54799999140158800840460171801200240060199999460175001200 1602843515 
0157073834902792999999999901 101 583000T01 1006010000 11 10 158800070240060 100426470 15 
01643731 201 1001 100604O0051 240060400426470146401 10012OO5890OO51460098001 100490205 
0,1 7 1 67350360075 100500 1 60 1588007604901 5360 1 10 1 5470OO02490 1 6020 1 10 15 1 100002 1101475 
1789730000226OO6O1 00604260 18770 1 588 1 40 187750840470 187801300360075 1005001 601 8775 
18627307604 100000000001 10 1877000T01 1OO6010OO5114018775O84O4601970O12OO24OO6010O 
51 93573426470 1 878O 1 100260 1 588O 1 877490 1 650024006040042646020260 1 200360075 100500 1 6 
520087301 87750760490 1 9260240060 100426470 1 9940 1 100490 1 650026020930050 1 12020930005 
02O8173426O04269999927O2528OO4141 3OO426OOO05260063O00O9926OO64O0 04261 10064000051 
5215473230O63OO064O320O095OOOOO2 6OO614O009843022780045743022220O44949O239O026O08 
522277385O04262702436O054126O08850O61427024360055149O2 39O043022980O450490237O02 6 
5230O73OO885OO4262702436O054126O08850042627024360O54626OO885OO61427024360055136O 
5237373OO000O5004900OOO0430241OOO4454902 370O17026980005O490237000OOO00380O4020O4 
52446730O26O2478O24351202478OOO593899999O04OO1 102478000B01 20088500058460247201 10 
025 197 3042000000 1602695000051602599025231 60259902523 16026745047626O048 IOO87 14302 
5259273644 999991 1025990005 1 1202 69500051 120267400051490258802 60266202599329999900 
5266573000269999902527260048102 695420000260088800426260274500541 1602843527454902 
527 3873812999995048101 102745000TO 120088800051460272201 10042701603246537484902832 
5281 17301 6032465424849O2832026O2899O 000044028880289933028990000026028990289^4902 



5288473844O26O35430OOO02602935O2899120293500O5226O354100O0015O31910O00226O297102 
52957738432603290000001 10284300055260300702843260 3O63OOO0O44O3O520306333O3O63OOO 
530307300260306303063490 300802603575000002 60 30990 30631 20 3O99OOO0226O357 300000260 
53 1037333 1'+028't3 1 + i t031 56032903303290000002603290032904903 1 120260330203290 12033020 
531767300521 10331 400Q50 1203 1910005 147032280 1200 1503 19100002460324001400490000004 
532^97 340327200099320354 1000001 10354 10005026000000 354326OO0OOO354149OOOOOO05O* 34 
5332273O0OOOOO1O238O3310O010043O3368OO4O14853573O357426O35410360626O35430360849O 
53395733472O340O0O00O1O2 38O3310001004403448O04O1481O0OO1OO0O2603541O359526O35430 
5346873359749OOOOOO3400OOOOO10238O331OO010O48050O00O00049034720OOO0OOOO0OO0OOO0O 
5354l73000tOOOOOOOOOOOOOOOOOOOOO 0000000000* 100000005 1t50OO0OO099*9999999999tT00O 
5361473O0OO0OOOO4" 34294481957692307695 90 9090 909T1 1111111 1T42857 14282OOO0OOOOO3333 
5 368773333 33350O00O000Q044O37360357 3330357 300000490 37480 320357 300000 150 396500001 
5376073 1 60 3 1 '755357324035430357 546039640 12004 60384401 1003 103545035663 103566035343 
538337310 353403545220 357503543460327201400210 39750357544039040357315039650000214 
039O673O3575OOOO746O3964O1 1OO4703272O12OO15O3565OOOO033O3566OOOOO21O35410OOOO2 5O 
5397973009 c '0 3541 1603478032484704 10001400 11O3543OOO0 147040560 14001 6033 1800051 4903 
0405273 3200260354 10 3540 15035340000T 330353500000490 32480460344 80 1200.330 354 1000002 
0412573603575O354343042160353431O3534O3535250 354152831 12035750005147041360140016 
041 987 303 31 8OOO024 l iO34OO032O35 3400000260354 30 357 549O3248O43O4292O356616O34780 350 
0427173416O3313OOO5749O348OO16O347803248280OO91O354129OOO91O357325OOO99OOO9143O4 



0434it7340 80OO8346O3448O1 200320008400000260354 100091 16O3554OOO0O49O4432O26O35410O 
044 17730^0 16035540000 1220 35430357546045000 14002 10 354 30355447032480 14001 60 33 18000 
04490730549033200440448003543210354303554440455603543150331800006490340004304576 
O4563730354349045360490346OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 
OtOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 000000000000000000000000000000000000000000 

000O0O0000001020304OO0204O608OO03O6O90210O40802161005O01 5 10200602 1 S 14200704 1 1 282 
O08O6l4223OO9O3l7263OO0OOOO0OO5O6O7O8O;.;OO1 2 141618 15181 12427202428223635203530454 
3632484455 324 l )465360484654627544 53627 1801 234567891 2345678:)0234567890T34567890T2 



PROGRAM 80 - B, CONDENSED DECK LISTING. 



310008000060'+ 9OO072OOO0O000O056431 5788086368995950000 00 00 00005001+900000*36000000 
360024000 50* 2 6000470 054 1 6000540000 1 1 1 0OO5 40OOO03 lOO 1 3 90OO 1045000 120Q 24049002420 
OOI6OOO35CO 1002600090002991 7OOO6OOOT4O03936O 0000005004 90000001 23456789I 234567890 
4 1000O00000036002 100050049002 100000000000000000000000000000000000000000000000000 
360 00 00 0O5O036OOO8OO050O36OO3O 0005003600322005004900 1280000000000000000000000000 
3606100005003600180005003600260005004905830*160007900166260007400163250040200166 
1 1OO163OOO01 1 IOOO79OOOO1 12001 650OOO 147OOO56O 12003600 15900500450004400 16049000000 

01234567891 234567890234567890T34567895T24567890T23567890T23^67890T2^^7890T23^ 
4 5 67 8 90T34567890T24567890T23567890TB567896^ 

00621730000000000000000000060000000000*00000000000000000000000000000000000000000 
00818730*00000000000000000000000000000000000000000000000000000000000000000000000 
0346073544557006541590000000000000033000000600*526344004559590068036700000033000 
0353573*59006258644159454400000000003306000*52645400625859005945620000003300000* 
0360873^9554400654 1 59006462454400003300000000000^ ^35655626341556300 63455 95400330 
0368573*55415900000000000043564546460*000000000000000062634400455959000000000000 
0375873630059416349560*57595642000*00654159000*0056426245590*5264546200564600654 



03831731594 941425345620*526454620056 460 0625864415945620041 5 5440Q4359566262205 759 
03904735644644 363620*1+ 1 6545594 1 4745620*52634 1 554441 59M+00444565494 1 63495655620*5 
0397773356595945534163495655005441635949670*52634557000*535941556246565954454400 
040 507 34 356595945534163495655005441635949670*59454955654559634544004356595945534 
0412373163495655005441635949670*000000260419604153260422504153210422400570369999 
041 96739005001 1041 9600070 1 4041 969999947041 900 1 30O420O00O000003603380005001 604302 
0426973033891607865042974 907834049169999903905783001003400000001081 104302000 T0 1 2 
0434373424900001470439601 100 14043020 34594704274O110049O425O034O0OOOOO 10234000000 
04i+ 177310249999990000026006510443 1330065000000380065000 100423603380005001 6O43O20 
044 907 3 33892 6OO657OO426l6OO 654OOO0l27O4644O065426o4249OO657l6O44260456249O43640 1 
0456373 1006540000 1 1 4006540000547046100 1 100 1 6006540000 1 1 20065700001 47045 1 80 1 20049 
046367399999000340000000108 120464300001 460464401 10042270443200403340000000101270 
04709734432004053400000001012704432004073400000001023903775001002704432004093400 
04787731082704432004263903787001003400000001082600651004143300647000003800647001 
04862733903799001003400000001023400000001024999999000006000003304906000002605803 
°^ 93 67 35 8i533O 5794O0O0O26O5793O5825l6O57840O0OOl6O5827O0O0O44O5O24O49 1 3 J 505 8 2 60 
050117323304913000001404915000^9460536001200140491500000470540601 100140491500004 
05O847346O5486O1 100 1605155049061 605 150057932205 1500491 52205 1500491 52599999999991 
0515 77.3.1051 5 500001 11O5150OOO0214O515O0579147O5144O1 1002 60531 10515516058 2 900 Q 5 2 2 
052 31 7358290491 5 I6O5287O58 152205287058292205287058292 105791 999991 6O53060579525O5 



0530^73795000001 1053t lOOOOl 1 10530600052 i 40 5 30 60" 5 803470 5 30 00 ! 1004305 3800578549056 
05377j3y2OlSOS8O3OOOOO26O5783Oj827^214O'+9l50O_O5547O5 1 *86O1 100 1 60 5J1 10^^61 6O5JO60 
5 4 50 7 3 5 7 9 52 2053060*4 9152 20 5 30 604 9 1 54 90 S 30 00 2 60 57 ? 60 5 80 8 '+40 5 5 *+60 4 9 1 5 1 60 5 7 8 3000 50 3 
055237330491 5000OO330578i+OO0O025O578/0U9 152505785049 143305785OOOOO26O57910582733 
°l5 5977 357 9000000 160 5 6^1 Q 1 * 90 6^605 6365 5 7 952 5 99999 99999 1 10564100001 1105636000021405 
5 670 7 3 6 3 60 5 8.0 34 70 5 6 30 V 1 04 21 60S 7 150578743 5 7 360 5 7 8 7 11 '5 7 1 500 00 2 4 90 5 70 40 2 60 5 7 66 
057447357 1512057660 OOC226999990532742OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO+-7070707070O 
058257330000370065900500340000000102390065900100450589000817490583000000^ 
05899731023^0000000 r02 36OO66lOO5OO43059 r '40066243O6l 62006644306422006664306534006 
O5972736843O66580O6704907808036OO4020O5OO 1604904060264904682039038 13001003400000 
604773 1 02 3400 00000 1 2 2 60 (424 90 0426 1 6044 2 60 60 944 904 2 500 3 90 3 84900 1 00 340000000 10 2 34 
0612773.1023600402005001604640059384904470036004020050043062060066216049040620649 
06201734682039039190010034000000010234000000010226042490042616044260627449042500 
O62747336OO402OO5OO39O3937OO 100340000000 102340000000102 2604249004261 604426063544 
06347739042500360040200 500390397700 100340000000 102 340000000 102 16O464O0595O49O447 
064227 3360040200500430647 800662430647800664 16049040647849046820390402700 10034000 
0649973102340000000 1021 604 64O059624 90 44700 36004020050043066020066243066020066443 
0657 3736602006661 604 90 40660249046820 3904089001003400000001023^0 000000102 16046400 
0664673597449O447O047O667OOO9O034OOOOOOO1O236OO562OO5OO36OO4820O5OO17041540098O1 
067 1973704 1540 17801 704 154C258039040 1500 100260065 10O564330064900OO038O0649001OO34 



067 9973 102 3400 00000102 390346100 1002 7044 3200567 34000000.0 102390350 100100 1 60 7 8 650 68 
56872738549O7834049160O61 10 390578300 100340000000102390 35 37001 00 16O78650695149O78 
069457334049 1 6O060 1 0390578300 100 340000000 102 390357 300 1 00 1 60 7865O70 1 74907834049 1 6 
070 18735063 10390578300100 340000000 102 390360 900 1002600651005703300650000003800650 
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PROGRAM 80 - CONDENSE.; DECK LISTING. _ _ ; 
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OS 

u 
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71 130731 11 6400004140906700003461 1 I960 11 003 10 9058090693 10 90260 905849087760 140 9067 
71 2067_30 847 1 1 2520 1100 1 60 8 8 10 000 9 1 60 8 9700 8 9 964 90 8 9 7 20 1 40 90 670 000 247 1 1 3080 1 100 1 60 
7 12797388 1000070 16089707 13084908972023 11 867090653300083000001 10906700051261 14030 
71 352739067 1 2O9O67OOO08261 1 38609O6732OO00OOOO0O26O9O34OOOOO491 14400000044 1 1 84000 
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ALPHAMERIC LISTING OF SAMPLE PROBLEM DECK. 



ll??rn 8 . . % OGOk300072 5332560741668060950M 05004900000 

.PROGRAM 80, TEST PROBLEM, FERBER DATA. STEPWISE REGRESSION 9 

05 E ^3m00 T C 5^^5 ° N 1° PR ' NT r PU [ AN ? ™^0RMED DATA. 

010102000102030001,03040017040100 
010700040703 

PROGRAM 80, TEST PROBLEM, FERBER DATA. MDV REGRESSION 
VARIABLES 3 AND 5 DESIGNATED THE DEPENDENT VARIABLES 
O51563O1OO031O02005OO50O5 4 trtN ,11111 

01 0102000 1Q2O300O1 0304001 704 0100 
010700040703 



PROGRAM BO, TEST PROBLEM, FERBER DATA. ADV REGRESSION 
O51563O1O0O31O02005OO5O05 5 4 11 ill i 

0102030405 

0101020001020300010304001 7040100 
010700040703 : 



1 


33480 


34^0 


6110 


2 


15370 


3 730 


25 60 




27900 


3790 


3700 


4 


78770 


3680 


1550 


'5' 


32560 


3580 


4020 


6 


28270 


3660 


3640 


7 


26740 


3330 


4320 


o 


25600 


3630 


3470 


9 ' 


175'iO 


3070 


1 350 


10 


19400 


3440 


,5250 


1 T 


32 750 


3 760 


1880 


1.2 


13 790 


3810 


3:360 



2980 
7510 
0220 
3150 
0980 
7500 
8030 
2620 
2740 
7510 
5360 
1 01 30 



13 24550 
14. 30370 
15 16310 
16. 31990 

17 18 360 

18 381 00 

19 22770 

20 34050 
2! 241 70 

22 22640 

23 22950 

24 16790 

25 24490 

26 .27050 
'27 305 20 

28 277.70- 

29 24310 

30 32790 
30380 
33480 
15370 
27900 
28770 
3 256,0 
28270 
26740 
25 600 
17550 
19400 
32750 

12 18790 

13 24550 

14 30370 

15 16310 

16 '31990 

17 18360 

18 38100 

19 22770 

20 34050 

21 24120 



31 



.7 
8 
9 
10 
11 



3270 


8300 


0800 


3050 


6830 


10930 


3610 


2 600 


7210 


345 


3 2 60< 


2540 


3600 


3070-- 


3910 


3640 


7680 


4960 


3440 


7860 


5190 


3450 


2560' 


2 620 


2990 


6140 


5780 


3 790 


2900 


3190 


3470 


6650 


1630 


38,60 


5 720: 


10960 


3940 


1930 


01 30 


3630 


. 2210 


2940 


3610 


4350 
3950 : 


04^0 


3560 


2130 


3730 


4370 


01 70 


3840- 


2780 


• 2040 


4070 


1 620 


1 620 


3440 


61 10 


2980 


3730 


2560 


7510 


3790 


3 700 s 


0220 


3680 


1550 


3150 


3580 


4020 


0980 


3660 


3640 


7500 


3330 


4320 


8030 


3630 


3470 


2620 


3870 


1 350 


2740 


3440 


5 250 


7510 


3760 


1880 


5360 


38 1 


3360 


10130 


3270 


8300 


0800 


3050 


6830 


109 30 


3610 


2600 


7210 


3450 


3 260 


2540 


3600 


3070 


3910 


3640 


7680 


4960 


3440 


7860 


5190 


3450 


2560 


2620 


2990 


6140 


5780 



22 


22640 




2900 


3 1 90 


23 


22950 


3470 


6650 


1 630 


24 


1 6790 


3860 


5 7 20 


1 0960 


25 


24490 


3940 


1 j j u 


01 30 


26 


27050 


3630 


2210 


2940 


27 


30520 


3610 


4350 ■ 


0440 


28 


27770 


3560 


3950 


2130 


29 


24 310 


3 730 


4370 


0170 


30 


32790 


3840 


2780 


2040 


31 


30380 


4070 


1 620 


1620 



TEST PROBLEM, FERBER DATA, LOAD OPTION WITH PROGRAM 80-A, 
VARIABLE FIVE ELIMINATED WHILE LOADING MEANS, STANDARD DEVIATIONS, 
AND CORRELATION MATRIX. 

0515630200031 5 11 1 11 

04 
05 

-5 J503-1 -003 1 -02-05-05-O5-O5-O4-O0-0-0O001 01 0001 1111 OOOOOOOOOOOOOOOOOOL 1 000000-2 
K6048064-2L6038 709-1 M0641 9 35-1 L 2323380-1 Ml 2645 1 6-1 N893 1 1 54-1 K3558676-OJ9473 21 6-1 
-5 J503 -1-003 1-02-05-05 -05-05-04-00-0-00001 01 0001 1 1 1 1 0OOOOOOOOOOOOOOOOOL 1 000000-2 
N893 1 1 54-1 K3558676-OJ947321 6-1 K401 772-0L 1 623043-1 J0000000-1 J2835 1 6M— Q38841 67-J 
-5J503-1 -003 1-02-05-05-05-05-04-00-0-00001 01 0001 1 1 1 1 OOOOOOOOOOOOOOOOOOL 1000000-2 
J0000000-1 J2835 1 6M— Q38841 67-JR9262 1 83-0L59241 8L— J0000000-1 0299407N— J5200 1 3P— 
K340158L— J 0000000-1 R0786828-JJ8753 168— JOOOOOOO-l L963400N— J0000000-1 0000000000 



TEST PROBLEM FOR 80-B OR C, OUTPUT FROM AD V SAMPLE PROBLEM. 
11111 

-5J503-1 -003 1-02-05-O5-O5-05-O4-0O-0-OOO01 01 0001 1 1 1 1 0OOOOOOOOOOOOOOOOOL 1 000000-2 
Q0749000-3J1 1 7 2000-3 J25990OO-3JOO20248-3J2 792000-3-00O0000RR-OO00O00RR-000OOO0RR 
-5 J503-1 -003 1 -O2-05-O5-O5-O5-04-0O-O-00O01 1 0001 1 1 1 1 OOOOOOOOOOOOOOOOOOL 1 000000-2 
J0765931-4N52406/Q-1K9841 75 3-2M3540820-2K075378— 3 J7205349-1 Q958802R-1 K665423P — 
N404574L-1J1 755392-3J3 1591 66-1 L5 799561 -2J7872033-1R329093K-1 LI 000524-30000000000 
-5 J503-1 -0031 -02-05-05-O5-O5-O4-OO-O-OO001O1 0001 1 1 1 1 OOOOOOOOOOOOOOOOOOL 1 000000-2 
K6O48O64-2L60387O9-1M0641 935-1 L2323380-1 Ml 2645 1 6-1N893 11 54-1 K3558676-OJ947321 6-1 
-5 J503-1 -003 1 -02-05-05-05-05-04-00-0-00001 01 0001 1111 OOOOOOOOOOOOOOOOOOL 1 000000-2 
N8931 154-1 K3558676-OJ94732 16-1 K4010772-0L1623043-U0000000-1J283516M—Q38841 67-J 
-5J503-1 -003 1-02-O5-O5-O5-05-04-O0-O-OOOO1 01 0001 1 1 1 1 0OOOOOOOOOOOOOOOOOL 1 000000-2 
JOOOOOOO-1 J2P3516M— Q3884) 67-JR9262183-OL592418L— JOOOOOOO-1 02994Q7N-- J520013P— 



K3401 58L— JOOOOOOO-l R0786828-J J87531 68— JOOOOOOO-l L963400N— JOOOOOOO-l 0000000000 
-5 J503-1 -003 1 -O2-O5-O5-05-O5-O4-OO-0-0OO01 1 000 11 1 1 1 OOOOOOOOOOOOOOOOOOL 1 000000-2 
Q4033698-2L821526L-1Q269759L— Q5 71 162K-2M5 2I /4l 0-1 J9479683-1 J061 4359-1 M21 24367-1 
N5350775-0J67 1 3588-1 Q1 497267— L9 11 794L-JQ8 706343-2N1 9961 96-1 J5 732840-1 0000000000 
-5J503-1 -0031 -02-O5-O5-05-O5-O4-0O-0-OO001 010001 1 1 1 1 OOOOOOOOOOOOOOOOOOL 1 000000-2 
R9999997-OJ283516N-OQ3884150-JR92621 79-OL592417M-OR9999976-002994040-OJ520013Q-0 
K340156Q-OR9999983-OR0786790-JJ8753157-OJOOOOOOO-1L963399N-OR9999990-00000000000 
-010-1 -04-0500000000 J05 7566L-3R88 1 000 1 -OP0 1 95997-O-00OO00ORR J28 1 1 444-2000-01-001 
11111 -2-3-4-5-0-1 -2-3-4-5-1 O700-407O3OOOO0OOOOOOOO0000O0O0OO00000OO0OO00OOOOO000 
J1 37568 1-1K9781 505 -JK5033700-2J00275 20— P0195997-0-OOOOOOORRJ281 14^4-2000-01-003 
P128193O-OQ3496588-JN9482393-OM5977943-JP0195997-O-000O00ORRJ281 1444-2000-01-004 
J5958716-1L5667930— M2085899-2K1 8094 14-1 P0195997-O-O00O000RRJ281 1444-2000-01-005 
-025-2-04-05667930— J 0490258-2M8664462—J8431 221 -O-OOO0000RRQ83245 73-0000-02-006 
11111-1 -3-4-5-0-1 -2-3-4-5-1 0700-407030OOO0OO0OOOOOOO0OOO0OOO0O0OO0OOOO00OOOOOO0O 
P8426149-J05921 19J-JK1 21 759R-1 K1 1 6844P-JJ8431 221 -0-OOOOOOORRQ8324573-0000-02-008 
M9143142-JJ77/2292-JJ2300296-1 J2456679-JJ8431221-O-00OO00ORRQ8324573-O00O-O2-009 
J5958716-1L70921 1N-1J724966N-1 J699365K-1J8431 221-0-OOOOOOORRQ8324573-0000-02-010 
-035-3-04-050921 1 N-1 L4749324-2M01 68442— J6447390-1 -000O00ORRP0334328-200O-O3-01 1 
11111 -1-2-4-5-0-1 -2-3-4-5-1 07O0-407O3O0OO0OOOOO00OOOOOO0OO0O00OOOOOO0O0O0O0OOOO0 
J6349929— N24941 4K-1 L954621J-1 J441 2533-JJ6447390-1 -000O000RRPO334328-2000-O3-O1 3 
M5839300-0J415 2371-U1561451-2J1 713579— J644739O-1-OOOO0OORRPO334328-2O00-O3-O14 
L5667929— L7092 1 1 Q-1 L4 205 23 J — J 2 3041 24 — J644 7390-1 -0000000RRP03 343 28-2000-03-01 5 
-046-4-04-050921 1Q-1K4002835-1 R8872684-OK7837032-J-OOOOOOORRK01 4741 1-J000-04-01 6 
1111 1-1-2-3-5-O-1-2-3-4-5-107OO-40703O0OO0O0O00O00O0O0OOO00O00000000O0000OOO0O00 
L9368258-JM839372J-JJ132809K-KM450608— KK7837032-J-OOOOOOORRK014741 1-J000-04-018 
R3542639-LK8057777-JL31 1801 2-KJ78O6727-KK7837032-J-OOO00OORRKO1 474l 1 -J00O-O4-019 
M2085896-2J724966L-1 L420522R— K499396R-1 K7837032-J-OOOOOOORRK01 4741 1 -JOOO-04-020 
-058-5-04-0524966L-1J2150368-3L6438684— K7529242-1-OOOOOOORRJ9704338-3000-05-021 
11111-1 -2-3-4-0-1 -2-3-4-5-1 0700-407030000000000000000000000000000000000000000000 
J5422589-1M722471K-1M0377072-JM35 2732 J-2K75 29242-1 -OOOOOOORRJ9704338-3000-05-023 
P071 5294-OK778961 8-1 L281 5887— J741 51 29-2K75 29242-1 -OOOOOOORRJ9704338-3000-05-024 
K1809410-1J699365K-1J23041 23— K499396R-1K75 29242-1 -0000000RRJ9 704338-3000-05-025 



1 

PROGRAM 80, TEST PROBLEM. FERBER DATA, RESIDUALS, LAST STEP OF ADV. 

0515630100031002005005005 5 4 11 11111 

0102030405 

01 01 020001 02030001 030U001 2040100 
O1O70OO4O7O3 

-058-5-04-05 24966L-1J2150368-3L6438684—K75 29242-1 -OOOOOOORRJ9704338-3000-05-021 
11111-1 -2-3-4-0-1 -2-3-4-5-1 07O0-407O3000O0O000OOO0O0000OO00OO00O00O0OOO0O0OO0000 
J5422589-1M722471K-1M0377072-JM35 2732 J-2K7529242-1-OOOOOOORRJ9704338-3000-05 -023 
P0715294-0K77n96l8-1L28l5887~J74l5129-2K7529242-1-0000OO0RRJ9704338-3000-05-024 
K1 80941 0-1 J699365K-1 J23041 23— K499396R-1 K7529 242-1 -OOOOOOORRJ9704338-3000-05-025 



